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A COMPUTER 
TYPING TUTOR 


Whether you’re going to sit down 
and write your first novel, or just 
want to speed up your copying of 
programs, fast, accurate typing is an 
essential first step 

The fifth generation of computers promises far 
more direct communication between machine 
and user — with things like touch and voice 
control becoming commonplace. Already, 
some of these newer control systems are 
finding their way onto relatively low-priced 
business and industrial machines. 

Unfortunately for the home computer en- 
thusiast, however, it looks like being some time 
before such facilities are available on domestic 
machines, and for the moment, we are stuck 
with the keyboard. 

Actually, the keyboard is a reasonably 
efficient method of giving the computer in- 
formation or instructions— but its main disad- 
vantage is that it is very time-consuming, 
particularly if you are not an expert (and very 
accurate) typist. And nothing is more frustrat- 
ing than trying to copy a printed listing if you 


continually have to look from keyboard to 
screen to paper to ensure that your typing into 
the computer is accurate. 

So why not use your computer to teach you 
to improve your typing? It’s an ability that is 
useful not just for writing programs, but will 
also prove invaluable if you ever want to make 
use of the computer’s potential as a word 
processor. The program which follows will 
help you get more familiar with the keyboard, 
and — if you don’t cheat — increase your speed 
and your accuracy, too. 

Spectrum owners are at a disadvantage 
here, because the Spectrum keyboard is by its 
nature less easy to type on at speed. But of 
course, for taping programs, you only need a 
single keystroke for each BASIC command. 


ABOUT THE PROGRAM 


Just like a proper typing course which could 
cost a small fortune, the INPUT typing course 
is designed to build your skills up methodically, 
so that you will get results at every stage as you 
progress. But it’s not a magic process, and like 
anything else worth learning, it takes time. 

So the course is broken down into a series of 


■ 

WHY LEARN TO TYPE? 

■ 

LEARNING THE HOME KEYS 

■ 

HOW TO USE THE PROGRAM 

■ 

IMPROVING YOUR SPEED AND 

ACCURACY 


:_.-:.r r-TT 

easy stages, with add-on programming sec- 
tions for each stage. In this way, when you are 
ready to move on, you can build up the 
existing program to take you on to the next 
level of proficiency. And as you go, you’ll get a 
constant update on your speed and accuracy. 


LEARNING THE 'HOME' KEYS! 


Real typing proficiency means being able to hit 
the right keys every time without having 
constantly to look at the keyboard. It’s easier 
than it sounds, but you can only achieve it by 
starting the right way, and by keeping up the 
good habits once you have learned them. 

Obviously, if you are going to be able to hit 
the right keys only by feel, you’ll have to learn 
where they are. And just as importantly, you 
will need to ensure that your hands are always 
in the same position over the keyboard- 
otherwise you have no way of knowing where 
you are about to press down on it. Professional 
typists do this by ensuring that their fingers are 
always positioned over the same keys — called 
the ‘home’ keys. These are the keys in the 

middle row, that begins ASDF So these 

are the keys that you will learn first. Once you 
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master the home keys, the rest of the keyboard 
can be reached by moving your fingers only a 
short distance each time. 

To get the maximum benefit from the 
course, you should try to stick to this and not 
cheat. But even if you are a ‘peek and pick’ 
one-finger typist, you should be able to see 
your skills improve. 

When you have typed in the program— a 
task that should get easier as you go on with the 
course — and RUN it, sit with your hands poised 
over the keyboard ready to start, following the 
screen prompts which are explained below. 
The little finger of your left hand should be 
over the A key, the next finger over the S, and 
so on, with your index finger over the F. Your 
right index finger should be over the J, the 
middle finger over the K, and so on. Your 
thumbs (except on the Spectrum) should be 
poised over the space bar. This of course leaves 
two keys— G and H— uncovered in the mid- 
dle. G can be reached with your left index 
finger and H with your right index finger. 

If this sounds complicated, don’t worry. 
The first part of the program is designed to 
make it familiar. 


When you RUN the program, the screen will 
ask you to choose between five options. You 
should start with lesson 1 and master this 
before progressing to lesson 2 and so on. 

Level 1 

The screen displays the home keys in a line as 
they appear on the keyboard. An asterisk will 
appear above each key in turn, working from A 
to ; (A to : on the Commodore keyboard and A 
to L on the Spectrum). Strike each key in 
sequence as the asterisk moves over it, using 
the correct finger — remember to type G and H 
by moving your index fingers only , and use 
your right little finger for ; or :. 

The asterisk will wait for you if you make a 
mistake. A correctly-hit key is marked by a 
beep, with a buzz for a missed or incorrect 
letter. 

At the end of the exercise, the screen will 
display your time, and the number of errors 
you made. 

Level 2 

When you are familiar with the position of the 
keys, move on to this level which is similar to 
the first, except that now the asterisk moves 


from letter to letter at random — don’t cheat by 
looking down! Once again, your time taken to 
complete the exercise (you get 20 random 
letters each go), and the number of mistakes 
you made, is displayed when you finish. 

Level 3 

This is similar to Level 2 in that you are given 
random letters, one at a time. But this time, the 
screen does not show you their position on the 
keyboard. Instead, they are just printed up 
singly on the centre of the screen. Once again, 
you get 20 each go. 

Level 4 

At last, you can type some words! All the 
words in this exercise are made up of letters on 
the home keys only— GLAD, for example. As 
in the previous level, 20 words appear at 
random in the centre of the screen, one after 
another. As you copy each word, an asterisk 
indicates each letter. And once more you get a 
score for speed and accuracy. Don’t cheat by 
looking, or you will be handicapped for some 
of the more challenging tests which are to 
come later on in the course! 






Level 5 

This time a ‘sentence’ of 6 or 7 random words 
is printed out. As you type in the letters, they 
appear one by one under the printed words. 
When you have typed the whole line, you’ll be 
told your score and an equivalent speed in 
words per minute (wpm). This is based on an 
average length of 5 letter words and a space 
between each word. When you are typing in 
the words that appear on the screen, don’t 
forget the spaces, which you obtain with vour 
thumbs on the space bar — on the Spectrum 
you need to press the awkwardly-sited SPACE 
key with your little finger. 

Practise each of the levels until you can do 
easily. Next, we add the remaining keys 
and some more complicated words. 


160 GOTO 20 

200 GOSUB 1000 

21 0 FOR K = 7 TO 23 STEP 2 

220 PRINT AT 10,K; 

230 LET R$ = S$((K-5)/2) 

240 GOSUB 1100 

250 IF C = 0 THEN GOTO 240 

260 PRINT AT 10,K;“D” 

270 NEXT K 
280 CLS : GOTO 1300 
300 GOSUB 1000 
310 FOR K = 1 TO 20 
320 LET RN = INT (RND*9)*2 + 1 
330 PRINT AT 10,RN + 6;“*”: LET 
R$ = S$((RN + 1)/2) 

340 GOSUB 1100: IF C = 0 THEN GOTO 340 
350 PRINT AT 10,RN + 6;“D” 

360 NEXT K 


What typing speed should I aim 
at to start with? 

At this early stage of the course you 
should aim for accuracy rather than 
speed. Once you can type in all the 
letters and words without any errors you 
can try speeding up. 

You should practice Levels 1, 2 and 3 
until you can type the 20 letters in about _ 
12 or 13 seconds, and for Levels 4 
and 5 you should aim for 
about 15 words per 
minute or more. 


10 BORDER 1: PAPER 1: INK 7: CLS 
20 POKE 23658,8: LET ER = 0 
30 LET S$ = “ASDFGHJKL” 

100 PRINT INVERSE 1;AT 8,9; “CITYPING 
TUTOR □” 

110 PRINT "TAB 6;“SELECT LEVEL (1 TO 5)’ 
120 IF INKEYS = “” THEN GOTO 120 
130 LET AS = INKEYS: IFA$<“1” OR 
AS > “5” THEN GOTO 120 
140 BEEP .2,10 

150 GOSUB VALA$*100 + 100 


370 CLS : GOTO 1300 

400 CLS : PRINT “TYPE THE LETTER SHOWN 
ON THEDD □□SCREEN” 

410 FOR N = 1 TO 100: NEXT N 
420 POKE 23672,0: POKE 23673,0 
430 FOR K = 1 TO 20 
440 LET RN = INT (RND'9) + 1 
450 PRINT AT1 1,1 6;S$(RN) 

460 LET R$ = S$(RN) 

470 GOSUB 1100: IF C = 0 THEN GOTO 470 
480 PRINT INVERSE 1;AT 11,16;“ NEXT K 9P1 
490 CLS : GOTO 1300 
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500 CLS : PRINT “TYPE THE WORD 
SHOWN ON THE □□□□□□ 
SCREEN”: POKE 23672,0: POKE 23673,0 
510 LET TL=0: FOR N = 1 TO 20: RESTORE : 

LET RN = INT (RND*24) + 1 
520 FOR K = 1 TO RN: READ T$: NEXT K 
530 PRINT AT 10,13;“D □ □ □ □”: PRINT 
AT 1 0,1 3;T$ 

540 FOR M = 1 TO LEN T$: PRINT AT 
9,11+M;“n*nnDD” 

550 LET R$ = T$(M): GOSUB 1100 
560 IF C = 0 THEN GOTO 550 
570 NEXT M 

580 LET TL=TL+ LEN T$: NEXT N 
590 CLS: PRINT ATI 8,0;“WORDS 
PER MINUTE=D”;INT (TL*500/ 

(PEEK 23672 + 256* PEEK 23673) + .5): 
GOTO 1300 

600 CLS : PRINT “TYPE THE WORDS 
SHOWN ON THEDDDDn 
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SCREEN”: LET T$ = “” 

610 FOR N = 1 TO 6: RESTORE : LET 

RN = INT (RND*24) + 1: FOR K = 1 TO RN: 
READ X$: NEXT K 
620 LET T$ = T$ + X$ + “D” 

630 NEXT N: LETT$=T$ (TO LEN T$ — 1 ) 

640 POKE 23672,0: POKE 23673,0: PRINT AT 
10,0;T$ 

650 PRINT AT 12,0;: FOR M = 1 TO LEN T$ 
660 LET R$ = T$(M): GOSUB 1100 
670 IF C=0 THEN GOTO 660 
680 PRINT T$(M);: NEXT M 
690 LET TL= LENTS: GOTO 590 
1000 CLS : PRINT “PRESS THE KEY 
INDICATED BY THED DASTERISK” 

1010 PRINT AT 12,7;“ADSnDDFnGn 
HDJDKDL” 

1020 FOR K = 1 TO 100: NEXT K: POKE 
23672,0: POKE 23673,0 
1030 RETURN 
1100 PAUSE 0 

1110 LET A$ = INKEYS: IF A$ < >R$ THEN 
BEEP .2, -10: LET ER = ER + 1 : LET 
= 0: RETURN 


1120 BEEP .05,20: LET C = 1: RETURN 
1300 PRINT AT 19,0;“TIME= 

(PEEK 23672 + 256 'PEEK 23673)/50; 
“□SECONDS”: PRINT “NUMBER OF 
ERRORS = D”;ER 
1310 PAUSE 100: RETURN 
2000 DATA “ASK”, “SAD”, “DAD”, “GLAD”, 
“HAD”, “LASH”, “LAG”, “HAS”, “HASH”, 
“DASH”, “ASS”, “ASH” 

2010 DATA “ALL”, “FALL”, “HAG”, 

“GASH”, “FLAG” “JAG”, “LASS”, “FAG”, 
“GAS”, “SASH”, “FLASK”, “SLASH” 


10 DIM W$(21 ),WO$(33):FORZ = 1T033: 

READ WO$(Z):NEXT 
20 FOR Z=1TO40:LI$ = LI$ + “— ”: 

NEXT:U$ = “.a” + LI$ 

30 PRINT “□□”TAB(7)“"""TYPniNG 

QTUTnOR 

40 AS = “ASDFGHJKL:”:POKE 54296,15: 
GOTO 380 

50 Tl$ = “000000” :S = 0: WW = 1 
60 N = 0: POKE 198,0 
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70 IF K = 5 AND P>0 THEN N = N + 1: 

P=P + 1:G0T0 140 

80 print “aagaasH”;:" 1 k<3 

THEN PRINT TAB(11)“BaADSD 

DnFDGnHnJDKDLD:”: 

POKE 198,0 

90 X = INT(RND(1)*10) + 1:N = N + 1: 

P = P + 1:IFK = 1 THEN X = N: GOTO 120 
100 IFK=3THENX = INT(RND(1)*10) 

+ 1:PRINTTAB(18)“B[2E)CBII 

II II TU ”MID$(A$,X,1 )“£ H B II 

iiiiaBB” 

110 IF K = 4 THEN PRINT TAB(16) 

£□□□□□11 II II llll 

W$(WW):X = N*.5 + 3 
120 IF K<3 OR K = 4 THEN PRINT 
•@aaaa”TAB(ii+(x-i) 
*2)“ST” 

130 IF K = 5 THEN F0RZ=1T0 7: 

PRINT “□”W$(Z);:NEXT Z:PRINT: 

PRINT “.SIB”; 

140 GET K$:IF K$ = “” THEN 140 
1 50 IF K > 3 AND K$ = MID$(W$(WW),N,1 ) 
THEN 210 

160 IF K>3 THEN 180 
170 IF K$ = MID$(A$,X,1) THEN 210 
180 W=54276:A = 54277 
190 POKE W, 33: POKE A,50:POKE 
54273,30:S = S + 1 

200 POKE 54273,0: POKE W,32:GOTO 140 

210 W = 54276:A = 54277 

220 IF K<3 OR K=4 THEN PRINT 

TAB(11 + (X-1) # 2)“nn” 

230 IF K = 5 THEN PRINT K$; 

240 POKE W,33:POKE A,50:POKE 54273,150 
250 POKE 54273,0: POKE W,32 
260 IF K = 1 AND N = 10 THEN 290 
270 IF K>3 AND N<LEN(W$(WW)) THEN 
70 

280 IF K< 4 AND N<20 THEN 70 
290 IF K> 3 THEN NEXTWW 
300 WW = VAL(MID$(TI$,3,2))*60 
+ VAL(RIGHT$(TI$,2)) 

310 PRINT “■"□”U$;:PRINT “EJYOUR 
TIME WAS^”WW“SEC”; 

320 PRINT “|| U Q MISTAKES MADE:§J”S 
330 IF K>3 THEN PRINT “H ’TAB(7) 
INT(10*NU/WW)“ DWORDS PER 
MINUTED” 

340 PRINT LI$:GOTO 530 
350 NU = 0:P=0:S = 0:FORWW=1 
TOMM:W$(WW) = WO$(INT(RND(1) 

*33) + 1) 

360 IF K = 5 AND WW< >7 THEN 
W$(WW) = W$(WW) + “□ ” 

370 NU = NU + LEN(W$(WW)):NEXT WW: 

Tl$ = “000000”: FOR WW = 1 TO MM: 
GOTO 60 

380 POKE 53280,6: POKE 53281,0: 

POKE 198,0 

390 PRiNT“@aaaaaaaa 
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a a a"TAB(i ^“optionsb u ” 

400 FOR Z=1 TO 5:PRINTTAB(13)Z; 

‘“TEST” ;Z: NEXT Z 

410 PRINT TAB(12)“aBENTER CHOICE?” 
420 GET K$:K = VAL(K$):IF K<1 OR K>5 
THEN 420 

430 PRINT” □”U$“U” 

440 IF K<3 THEN PRINT “□ PRESS THE KEY 
INDICATED BY THE ASTERISK” 

450 IF K = 3 THEN PRINT “□□□TYPE THE 
LETTER SHOWN ON THE SCREEN” 

460 IF K = 4 THEN PRINT“nTYPETHE 
WORD THAT APPEARS ON THE 
SCREEN”;:MM = 20 

470 IF K=5 THEN PRINT TAB(12)“nTYPE 
THESE WORDS”:MM = 7 
480 PRINT Ll$: FOR Z = 1 TO 1000:NEXT 
490 PRINTTAB(1 1 )“ a PRESS KEY TO 
START”:POKE198,0:WAIT 198,1 
500 PRINTTAB(1 1 )“□□□□□□□□ 
□□□□□□□□□□□” 

510 ON K GOTO 50,50,50,350,350 
520 GOTO 380 

530 FOR Z=1 TO 1000: NEXT Z: GOTO 380 
540 DATA ASK, SAD, DAD, GLAD, HAD, 

FLASH, FLASK, LASH, SLASH,LAG, HAS, 
HAJ,SKA, HAS, HASH 
550 DATA DASH, ASS, SHALLASH, ALL, 

FALL, HAG, GASH, FLAG, JAG,GAL, LASS, 


FAG, GAS, GAFF 
560 DATA JAH,SASH,AS 
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20 DIM A$(32) :VDU23;8202;0;0;0; 

30 FOR T = 1 TO 32:READ A$(T):NEXT 
40 A$ = “ASDFGHJKL;”:A2$ = 

“ADSDDDFDGDHDJDKDLD;” 
50 PRINTTAB(5,1 5)“WHICH LEVEL DO YOU 
WANT (1-5)”; 

60 G = GET — 48 

70 IF G <1 OR G>5 THEN 60 

80 ON G GOTO 90,120,150,180,210 

90 PROCLEV1 

100 PROCANGO 

110 GOTO 80 

120 PROCLEV2 

130 PROCANGO 

140 GOTO 80 

150 PROCLEV3 

160 PROCANGO 

170 GOTO 80 

180 PROCLEV4 

190 PROCANGO 

200 GOTO 80 

210 PROCLEV5 

220 PROCANGO 

230 GOTO 80 

240 DEF PROCANGO 

250 CLS 

260 COLOUR3 


270 PRINTTAB(10,4)“LEVEL NUMBERD”;TN 
280 PRINTTAB(10,6)“TOOK YOUD”; 

TM/1 00;“ □ SECONDS” 

290 IF B = 0 THEN B$ = “NO” ELSE 
B$ = STR$(B) 

300 PRINTTAB(10,8)“AND YOU 
HADD”;B$;“D ERRORS”; 

310 IF TN = 4 OR TN = 5 THENPRINT 

TAB(1 0,1 0);WM;“ □ WORDS PER MINUTE’ 
330 PRINTTAB(5,15)“WHICH LEVEL DO YOU 
WANT (1-5)”; 

340 G = GET- 48 

350 IF G < 1 OR G>5 THEN 340 

360 ENDPROC 

370 DEF PROCLEV1 

380 CLS 

390 PRINT"“PRESS THE KEY INDICATED BY 
THE ASTERISK” 

400 B = 0:TN = 1 

410 COLOUR1 

420 PRINTTAB(10,10)A2$ 

430 FOR T = 1 TO 10 
440 B2$ = MID$(A$,T,1) 

450 COLOUR3 

460 PRINTTAB(8 + T*2,9)“*”TAB 
(8 + T*2,10)B2$ 

470 B$ = GET$:IFT=1 THEN TIME = 0 

480 IF B$ = B2$ THEN 520 

490 SOUND1, — 1 0,1,1 

500 B = B + 1 

510 GOTO 470 

520 COLOUR1 

530 PRINTTAB(8 + T*2,9)“ □ ’’TAB 
(8 + T’2,10)B2$ 

540 SOUND1, -10,200,1 
550 NEXT 
560 TM = TIME 
570 ENDPROC 
580 DEF PROCLEV2 
590 CLS 

600 PRINT''“PRESS THE KEY INDICATED BY 
THE ASTERISK” 

610 B = 0:TN = 2 

620 COLOUR1 

630 PRINTTAB(1 0,1 0)A2$ 

640 FOR T = 1 TO 20 
650 P=RND(10):X=P*2 + 8 
660 B2$ = MID$(A$,P,1) 

670 COLOUR3 

680 PRINTTAB(X,9)“*”TAB(X,1 0)B2$ 

690 B$ = GET$:IFT=1 THEN TIME = 0 
700 IF B$< >B2$ THEN SOUND1J 0,1,1: 

B = B + 1:GOTO 690 
710 SOUND1, — 1 0,200,1 
720 COLOUR1 

730 PRINTTAB(X,9)“D”TAB(X,10)B2$ 

740 NEXT 
750 TM = TIME 
760 ENDPROC 
770 DEF PROCLEV3 
780 B = 0:TN = 3 
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790 CLS 

800 PRINT"“PRESS THE KEY SHOWN” 

810 FOR T = 1 TO 20 

820 P = RND(1 0):B2$ = MID$(A$,P,1 ) 

830 PRINTTAB(1 9,1 5)B2$ 

840 B$ = G ET$ : I F T = 1 THEN TIME = 0 
850 IF B$ = B2$ THEN SOUND1, — 10, 

200,1 ELSE SOUND1,- 10,1,1: 

B = B + 1 :GOTO 840 
860 NEXT 
870 TM = TIME 
880 ENDPROC 
890 DEF PROCLEV4 
900 B = 0:TN = 4 
910 CLS 

920 PRINT”“TYPE WORD SHOWN ON THE 
SCREEN” 

930 NC = 0 

940 FOR T=1 TO 20 

950 P = RND(32) 

960 B2$ = A$(P) 

970 NC = NC + LEN(B2$) 

980 PRINTTAB{1 7,1 4) B2$‘‘Dnn” 

990 B$ = “” 

1000 FOR X=1 TO LEN(B2$) 

1010 PRINTTAB(16 + X,13)“*” 

1020 B$ = MID$(B2$,X,1 ):B3$ = GETS: 

IF T = 1 AND X = 1 THEN TIME = 0 


1030 IF B$ = B3$ THEN SOUND1, — 10, 

200,1 ELSE SOUND1, — 10,1,1: 

B = B + 1:GOTO 1020 
1040 PRINTTAB(16 + X,13)“D” 

1050 NEXT 
1060 NEXT 
1070 TM = TIME 

1 080 WM = INT(NC* 1 000/TM + .5) 

1090 ENDPROC 
1100 DEF PROCLEV5 
1110 B = 0:TN = 5 
1120 NC = 0 
1130 CLS 

1140 PRINT"“TYPE THE WORDS IN 
CORRECTLY” 

1150 B2$ = A$(RND(32)) 

1160 NC = LEN(B2$) 

1170 FOR T = 1 TO 6 

1180 B2$ = B2$ + “D” + A$(RND(32)) 

1190 NEXT 

1200 PRINTTAB(0,14)B2$ 

1210 PRINT 
1220 NC= LEN(B2$) 

1230 FOR X = 1 TO LEN(B2$) 

1240 B$ = GET$:IFX = 1 THEN TIME = 0 
1250 B3$ = MID$(B2$,X,1) 

1260 IF B$ = B3$ THEN SOUND1, — 10, 

200,1 ELSE SOUND1,- 10,1,1: 


B = B + 1:GOTO 1240 
1270 PRINTBS; 

1280 NEXT 
1290 PRINT 
1300 TM = TIME 

1310 WM = INT(NC*1 000/TM + .5) 

1320 ENDPROC 

1330 DATA ASK, SAD, DAD, GLAD, HAD, 
FLASH, FLASK, LASH, SLASH,LAG, HAS, 
HAJ,JAFFA,SKA, HASH, DASH, ASS, 
SHALL, ASH.ALL,FALL.HAG,GASH, 
FLAG, JAG, GAL, LASS, FAG, GAS, AS, 
JAH,SASH 




10 OB$=“AnsnDnFnGDHnjn 

KDLD;” 

20 CLS 

30 DIM W$( 28) 

40 FOR K = 1 TO 28 
50 READ W$(K) 

60 NEXT 

70 PRINT@71, “WHICH LEVEL OF” 

80 PRINT@1 01 “DIFFICULTY (1-5) ?” 

90 PRINT@165 “TYPE (0) TO QUIT” 

1 00 A$ = INKEY$:IF A$ < “0” OR A$ > “5” 
THEN 100 

110 A = VAL(A$):ON A + 1 GOSUB 999, 
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200,300,400,600,800 
120 ER = 0 
130 GOTO 70 
200 GOSUB1000 
210 AP = 1 252 
220 FOR K = 1 TO 10 
230 AP = AP + 2 
240 GOSUB 1100 
250 NEXT 

260 CLS:PRINT@448,“TIME =”; 

TIMER/50;“SECONDS ” 

270 PRINT“NUMBER OF ERRORS 
= ”;ER; 

280 RETURN 
300 GOSUB 1000 
310 FOR K = 1 TO 20 
320 AP = 1252 + 2*RND(10) 

330 GOSUB 1100 
340 NEXT 
350 CLS 

360 PRINT@448,“TIME =”; 

TIMER/50;“SECONDS” 

370 PRINT“NUMBER OF ERRORS 
= ”'ER' 

380 RETURN 

400 CLS0:PRINT“DTYPE THE LETTER 

shown on THEnnnnnnnn 

SCREEN” 

410 PRINT@206,“D □ □”;:PRINT@238, 

□ □”;:PRINT@270,“D □ 

420 FOR K = 1 TO 20 

430 P$ = MID$(OB$,2‘RND(10) — 1,1) 

440 PRINT@239,P$; 

450 A$ = INKEY$:IF A$ = THEN 450 

460 IF K = 1 THEN TIMER = 0 

470 IF A$ < > P$ THEN SOUND 5,1: 

ER = ER + 1:GOTO 450 
480 POKE 1263,128 
490 SOUND 200,1 
500 NEXT 
510 GOTO 350 

600 CLS: PRINT” DTYPE THE WORD THAT 
APPEARS” 

610 T=0 

620 FOR K = 1 TO 10 
630 P$ = W$(RND(28)) 

640 T = T+ LEN(P$) 

650 PRINT@237,P$ 

660 P = 1 

670 POKE 1 228 + P, 106 
680 A$ = INKEY$:IF A$ = THEN 680 

690 IF K= 1 THEN TIMER = 0 
700 IF A$ < > MID$(P$,P,1 ) THEN 
ER = ER + 1 :SOUND 5,1 :GOTO 670 
710 POKE 1 228 + P, 96 
720 SOUND 200,1 :P = P + 1:IF 
P< = LEN(P$) THEN 670 
730 NEXT 
740 CLS 

750 PRINT@416, USING“WORDS PER 
MINUTE = # # #.# #”;T*500/TIMER 


760 GOTO 360 

800 CLS:P$ = “”:FOR K = 1 TO 6 
810 P$ = P$ + W$(RND(28)) + “D” 
820 NEXT 

830 P$ = LEFT$(P$,LEN(P$) — 1 ) 

840 PRINT” □ TYPE THESE WORDS” 
850 P = 1:PRINT@224,P$ 

860 A$ = INKEY$:IF A$ = THEN 860 
870 TIMER = 0:GOTO 890 
880 A$ = INKEY$:IF A$ = THEN 880 
890 IF A$ < > MID$(P$,P,1 ) THEN 
ER = ER + 1:SOUND 5,1:GOTO 880 
900 POKE 1311 + P,PEEK(1 247 + P) 

910 SOUND 200,1:P=P + 1:IF 
P< = LEN(P$) THEN 880 
920 T=LEN(P$):GOTO 740 

999 CLS:END 

1000 CLS:PRINT‘‘PRESS THE KEY 
INDICATED BY THEnDDDD 


AQTPRIQK” 

1010 PRINT@262,OB$ 

1020 FOR K = 1 TO 1000:NEXT 
1030 RETURN 
1100 POKE AP,1 06 

1110 A$ = INKEY$:IF A$ = “” THEN 1110 
1120 IF K = 1 THEN TIMER = 0 
1130 IF (ASC(A$)OR64) < > PEEK 
(AP + 32) THEN SOUND 5,1 :ER = 

ER + 1:GOTO 1110 
1140 SOUND 200,1 
1150 POKE AP,96 
1160 RETURN 

9000 DATA ASK, SAD,DAD, GLAD, HAD, 
LASH, LAG, HAS, HASH, DASH, ASS, ASH, 
HAG,ALL,JAG,FAG,GAS 
9010 DATA HALF.FALL, GASH, FLAG, 
LASS,SASH,FLASK, SLASH, FLASH, 
SHALL, JAFFA 
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ANADVEIN 


The very first stage in writing an 
adventure is to work out the general 
story line and draw a rough map of 
all the locations. This then forms the 
basis of the whole program 

It is essential to work out the whole story 
before you start programming. If you don’t, 
you’re likely to have lots of difficulty, with 
many bugs and loose ends to tie up. 

To see how it’s done, the next few articles in 
INPUTS Games Programming course follow 
the development of a typical (although neces- 
sarily very short) adventure program. The idea 
for the INPUT adventure is set in some far- 
away land where the player has to recover the 
fabled lost eyeball of the purple icon. If you 
follow all the steps in writing this adventure 
you’ll quickly see how to write your own. 


THE STORY 


You have to design a world that will fit in with 
the broad storyline. Suitable objects, and roles 
for them have to be found and puzzles have to 
be devised. 

You don’t need to work all this out at once, 
because as the adventure is thought about, 
more and more of the story becomes worked 
out and the details start to slot into place. So 
start by roughing out the storyline. 

The player in the INPUT adventure is in 
dire financial difficulty, and has set out on a 
quest to find the fabulous (and very valuable) 
eyeball that is hidden somewhere in the world 
of the adventure. Unfortunately the Inland 
Revenue has sent a tax inspector in pursuit. 
The tax inspector’s role in the adventure is 
somewhat like the pirate’s role in many other 
adventures — namely, to wreak havoc on the 
poor adventurer. If the tax inspector does 
appear, one of two things can happen. If you 
are carrying an object, he will take it to offset 
your huge tax bill, but if you haven’t yet found 
anything (and therefore can’t pay), he locks 
you in a deep dungeon. 

So much for the bare bones of the idea. Now 
you should fill in some of the details — like 
what objects are to be found on the quest. In 
the INPUT adventure, we have decided that 
the usual rule of collecting all the objects in 



an adventure will be upset. 

This time, not all of the objects 
are advantageous to the quest— in 
fact one object will have no function 
at all. Or almost no function — it is a 
heavy weight (a brick, for example) 
that kills you if you try to swim the river. 

The most important object of all is the 
eyeball, and to add interest, some way to hide 
or disguise it has to be devised. It could be 
hidden inside a chest or a vault, but in fact a 
more cunning way of fooling the adventurer 
has been chosen. Instead of hiding the eyeball 
in a place that obviously would contain some- 
thing very valuable, it will be concealed in a 
bag of marbles. Any attempt to play marbles 
will not get the adventurer anywhere! 

A favourite device in adventure games is the 
darkened room in which all kinds of horrible 
things can happen — and this adventure is no 
exception. Without a lamp — to be found else- 
where in the adventure — the poor adventurer 
won’t be able to see the exits and will be stuck. 
This may be a little unfair because no warning 
of impending doom is given, and there is no 
way for the player to get out of the darkened 
room unless he has already found the lamp. 

To counteract the attentions of the tax 
inspector, and give the adventurer a better 
chance, a weapon will be hidden somewhere in 
the adventure — either a gun or a knife perhaps. 

Finally, just for fun, there is a throne room 
and a chain. The throne room is not quite what 
it seems. In fact, if you are not carrying the 


eyeball, the throne in 
question is a toilet! Pulling 
the chain will flush you 
away, and hasten you out of the 
adventure. 

One thing remains to be sorted 
most important of all, the conditions iui 
winning the game. There is no obvious exit 
from the world, and part of the puzzle is how to 
escape with the eyeball. 

To win the game, the adventurer must ob- 
viously have found the eyeball — not just the 
bag of marbles. To make it more difficult, the 
adventurer must also be in the throne room. 
Pulling the chain this time will not flush the 
adventurer down the loo! 

The advantage of making the way out also a 
hazard under different conditions, is that it is 
likely to discourage the wary player from 
trying it too often, thus prolonging the play. 
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■ THE STORY LINE ■ ENTERING THE LOCATION 


DESCRIPTIONS IN SUBROUTINES 


■ DIFFERENT TYPES OF GRIDS 


DRAWING A MAP 


■ FROM MAPS TO GRIDS 


■ PROGRAMMING THE EXITS 


PLANNING CHARACTERS, OBJECTS 

AND LOCATIONS 


THE STORY SO FAR . . 


At this stage, a re-cap is in order 
— before you lose track of the 
themes, which are already becoming 
complicated. It may even be worth 
making a list before you start mapping. 
In the INPUT adventure, this might 
look something like this: 

CHARACTERS: 

• Adventurer 

• Tax Inspector— should appear at random 
OBJECTS: 

Eyeball — hidden in a bag of marbles 
Brick — red herring that kills adventurer 
if he attempts to swim river 
Lamp— necessary to find the way out 
of a darkened room 
Gun — weapon to kill Tax Inspector 

• Chain — in throne room 
LOCATIONS: 

• River 

• Darkened room 

• Throne room 
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So far, the adventure has only fixed three of 
the locations because of things which need to 
take place there. You might well have decided 
upon more by this stage. But whatever the 
case, your next step is to fit all these themes 
together in a map of the adventure world. 


STARTING MAPPING 


Your first map will probably consist simply of 
a series of boxes, connected by arrows, rather 
like fig. 1. Each of the boxes represents a room 
or location in the world — location is probably 
the better term because you are not confined 
indoors with your adventures, and the location 
might be anything from on top of a pinhead in 
the queen’s hem to a large plain, stretching as 
far as the eye can see. You will need to 
incorporate all the locations in your prelimi- 
nary list, plus others to tie the game together. 

When you are drawing this map remember 
to mark in the directions that you can go from 
each room, because you may wish to have exits 
which only work in one direction- 
accompanied by a message such as 


THE DOOR SUMS SHUT BEHIND YOU 


The dotted lines leading from the Dark 
Room indicate that the adventurer will only be 
able to go in that direction if certain conditions 
are satisfied. In this case, the condition is that 
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location descriptions should be kept short at 
this stage. The links have been drawn in, and 
the starting point has been decided. This is 
quite important as it affects the way the 
adventure is tackled, and the order in which 
the objects are found and the puzzles 
attempted. 

The objects are also marked in their loc- 
ations. The objects that will appear later on, 
for example, the eyeball, are best listed at the 
side of the map. 


FROM MAPS TO GRIDS 


Once the map has been completed, the inform- 
ation can be transferred on to a grid. 

There are two forms of grid commonly used 
when planning adventure games: one based on 
squares as in fig. 2, and one based on octagons 
as in fig. 3. Which type you use will depend on 
the number of possible exits from each of the 
locations. 

The simplest kind of adventures only call 
for you to exit from rooms in four directions: 
North, South, East and West (as in the eyeball 
adventure). If your adventure uses this range 
of exits, then you should transfer the inform- 

FOREST 

GUN-ON 
OPPOSITE BANK 


ation to the square grid so that it matches the 
conditions on your map. How this is done is 
developed in detail below. If you have used 
exits including Northeast, Northwest, South- 
east and Southwest, you should use the octag- 
onal grid, but this kind of grid system is very 
complicated. 

The final variation on the grid is if you have 
chosen to move up and down as well. In this 
case the best solution is to use a separate grid 
for each ‘level’ of the adventure. 

The eyeball adventure is based on the 
square type of grid— allowing exits to the 
North, South, East and West only. Unless 
there is a real need for other directions this 
kind of adventure is quite adequate, and there 
is a way of ‘fiddling’ up and down directions. If 
you use a description including a phrase like: 

THERE IS A STAIRCASE DESCENDING TO THE 
WEST 


you can use the normal West response and 
routine instead. 


OUTSIDE 
BAG OF MARBLES 
EYEBALL-in bag. 


DUSTY ROOM 


the adventurer has the lamp and has lit 
it so that he can see the exits. 

It is very difficult to predict quite how many 
locations you will be able to fit into a given 
amount of RAM. The difficulty arises because 
there are so many things competing for mem- 
ory space in an adventure program — room 
descriptions, the words you wish the program 
to recognise, the number of objects and what 
you want to do with them, the number of 
puzzles and their complexity, and so on. 

Once you have written a few small adven- 
tures and checked how much memory is 
occupied— see page 268— you’ll have some 
idea of what will fit in your machine. 

Owners of 16K computers will soon dis- 
cover that it is almost impossible to write a 
large-scale adventure in such a small amount 
of RAM. However the adventure which you 
will see developed over the next few issues of 
INPUT has only a small number of rooms— 
12 in fact — and therefore is too small to cause 
any headaches. 

A map for the Quest for the Jewelled 
Eyeball would look like that in fig. 1. The 



BRICK 


PATH 


GATE 


1. The first map of the adventure shows 
all the planned locations in their relative 
positions. The solid arrows indicate 
exits which are open at all times, 


but the striped arrows indicate exits 
which can only be used under special 
conditions — in this case when the lamp 
has been lit 












THE GRID 


This adventure will need a grid of six squares 
by four squares — check this by counting the 
maximum number of locations on your map, 
up and down and right to left. Before you start 
transferring all the details to the grid, make 
sure that you have numbered each of the 
squares. Start at number 1 in the top left, and 
work through to the bottom right. 

Once the squares have been numbered and 
the room details transferred, the grid appears 
as in fig. 4 (overleaf). 


computer must be told in which directions the 
exits are in. 

At last, here are the first sections of 
program. The high line numbers are to allow 
plenty of space for earlier program sections as 
you develop the game. 

Type your section in and SAVE it on tape: 



5000 REM "LOCATION DESCRIPTION" 
5010 REM "LOCATION 4" 

5020 PRINT “YOU ARE OUTSIDE A LARGE 
BUILDING” 


5090 LET N = 0: LET E = 0: LET S = 1 : 

LET W=1: RETURN 
5100 REM "LOCATION 10" 

5110 PRINT “YOU ARE IN A DUSTY ROOM” 
5120 LET N = 1 : LET E = 1 : LET S = 1 : 

LET W=0: RETURN 
5130 REM "LOCATION 11” 

5140 PRINT “YOU ARE IN A DARK ROOM” 
5150 IF LA< >1 THEN LET N = 0: LET 
E = 0: LET S = 0: LETW = 0: 

PRINT “IT IS TOO DARK TO SEE THE 
EXITS”: LET DA = 1 : RETURN 
5160 LET N = 0: LET E = 0: LET S = 1 : 



COURTYARD 


LAMP 


CHAIN 


THRONE ROOM 


CUPBOARD 


STARTING THE PROGRAM 


Now that you have a story line and a completed 
grid you can start on the program. 

The first stage is to type in the location 
descriptions, based on your grid. You must 
decide how long these are going to be. Aim to 
convey as much of the atmosphere of the ad- 
venture as possible without wasting memory. 

Along with the location descriptions the 


5030 LET N = 0: LET E=0: LET S = 1 : 

LET W=0: RETURN 
5040 REM "LOCATION 7" 

5050 PRINT “YOU ARE BY A FAST- 
FLOWING RIVER” 

5060 LET N = 0: LET E = 1 : LETS = 0: 

LET W=0: RETURN 
5070 REM "LOCATION 8" 

5080 PRINT “YOU ARE IN A PETRIFIED 
FOREST” 


LET W = 1 : RETURN 
5170 REM "LOCATION 14" 

5180 PRINT “YOU ARE ON A MUDDY PATH” 
5190 LET N = 1: LET E=1: LET S = 0: 

LET W=0: RETURN 
5200 REM "LOCATION 15" 

5210 PRINT “YOU ARE BY THE GATE TO 
THED □ □ □ □ □ HIDDEN CITY” 

5220 LET N = 0: LET E = 1 : LETS = 0: 

LET W = 1 : RETURN 
5230 REM "LOCATION 16" 

5240 PRINT “YOU ARE IN THE ENTRANCE 
HALL” 

5250 LET N = 1 : LET E = 1 : LET S = 1 : 

LET W = 1 : RETURN 
5260 REM "LOCATION 17" 

5270 PRINT “YOU ARE IN THE COURTYARD” 
5280 LET N = 1 : LET E = 1 : LET S = 0: 

LET W=1: RETURN 
5290 REM "LOCATION 18" 

5300 PRINT “YOU ARE IN THE GARDEN” 
5310 LET N = 0: LET E = 0: LET S = 1 : 

LET W=1: RETURN 


DARK ROOM 


, GARDEN 
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2. A small part of a square-based grid on 
which to plan adventures using four 
exits so that you can go to the north, 
south, east and west 

5320 REM “LOCATION 22“ 

5330 PRINT “YOU ARE IN THE CUPBOARD” 
5340 LET N = 1 : LET E = 0: LET S = 0: 

LET W = 0: RETURN 
5350 REM “LOCATION 24** 

5360 PRINT “YOU ARE IN THE THRONE 
ROOM” 

5370 LET N = 1 : LET E = 0: LETS = 0: 

LET W=0: RETURN 

KB EB 

Vic 20 owners will have to add some spaces so 
that the PRINT statements format correctly on 
the Vic’s 22 column screen. 

5000 REM ** LOCATION DESCRIPTION ** 
5010 REM ** LOCATION 4 ** 

5020 PRINT “YOU ARE OUTSIDE A LARGE 
BUILDING” 

5030 N = 0:E = 0:S = 1:W=0:RETURN 
5040 REM ** LOCATION 7 ** 

5050 PRINT “YOU ARE BY A FAST- 
FLOWING RIVER” 

5060 N = 0:E = 1:S = 0:W=0:RETURN 
5070 REM " LOCATION 8 ** 

5080 PRINT “YOU ARE IN A PETRIFIED 
FOREST” 

5090 N = 0:E = 0:S = 1:W = 1:RETURN 
5100 REM ** LOCATION 10 ** 

5110 PRINT “YOU ARE IN A DUSTY ROOM” 
5120 N = 1 :E= 1 :S= 1 :W= 0:RETURN 
5130 REM “ LOCATION 11 ** 

5140 PRINT “YOU ARE IN A DARK ROOM” 
5150 IF 08(6)0-1 ORLAol THEN 
N = 0:E = 0:S = 0:W = 0 
5155 IF 0B(6)< > — 1 ORLAol THEN 
PRINT “IT’S TOO DARK TO SEE THE 
EXITS”:RETURN 

5160 N = 0:E = 0:S = 1:W=1:RETURN 
5170 REM ** LOCATION 14 ** 



3. A small part of an octagonal grid — 
used when you want to include exits that 
go to the north west, north east, south 
west and south east 


5180 PRINT “YOU ARE ON A MUDDY PATH” 
5190 N = 1:E=1:S = 0:W=0:RETURN 
5200 REM “ LOCATION 15 ** 

5210 PRINT “YOU ARE BY THE GATE TO THE 
HIDDEN CITY.” 

5220 N = 0:E = 1:S = 0:W=1:RETURN 
5230 REM ** LOCATION 16 ** 

5240 PRINT “YOU ARE IN THE ENTRANCE 
HALL” 

5250 N = 1:E = 1:S = 1:W = 1:RETURN 
5260 REM ** LOCATION 17 ** 

5270 PRINT “YOU ARE IN THE COURTYARD” 
5280 N = 1:E=1:S = 0:W=1:RETURN 
5290 REM ** LOCATION 18 ** 

5300 PRINT “YOU ARE IN THE GARDEN” 
5310 N = 0:E = 0:S = 1:W = 1:RETURN 
5320 REM ** LOCATION 22 ** 

5330 PRINT “YOU ARE IN THE CUPBOARD” 
5340 N = 1:E = 0:S = 0:W = 0:RETURN 
5350 REM ** LOCATION 24 ** 

5360 PRINT “YOU ARE IN THE THRONE 
ROOM” 

5370 N = 1:E=0:S = 0:W=0:RETURN 
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For the Acorn machines, the spaces in Line 
5210 should be omitted. 


5000 REM**LOCATION DESCRIPTION** 
5010 REM "LOCATION 4" 

5020 PRINT “YOU ARE OUTSIDE A LARGE 
BUILDING” 

5030 N = 0:E = 0:S = 1:W = 0: RETURN 
5040 REM “LOCATION 7“ 

5050 PRINT “YOU ARE BY A FAST- 
FLOWING RIVER” 

5060 N = 0:E = 1:S = 0:W=0: RETURN 
5070 REM “LOCATION 8** 

5080 PRINT “YOU ARE IN A PETRIFIED 
FOREST” 


5090 N = 0:E = 0:S=1:W=1:RETURN 
5100 REM ** LOCATION 10“ 

5110 PRINT “YOU ARE IN A DUSTY ROOM” 
5120 N = 1:E = 1:S=1:W = 0:RETURN 
5130 REM ** LOCATION 11“ 

5140 PRINT “YOU ARE IN A DARK ROOM” 
5150 IF 0B(6)< > — 1 ORLAol THEN 
N = 0:E = 0:S = 0:W = 0:PRINT“IT IS 
TOO DARK TO SEE THE EXITS RETURN 
5160 N = 0:E = 0:S = 1:W=1:RETURN 
5170 REM ** LOCATION 14“ 

5180 PRINT “YOU ARE ON A MUDDY PATH” 
5190 N = 1:E=1:S = 0:W = 0:RETURN 
5200 REM ** LOCATION 15“ 

5210 PRINT “YOU ARE BY THE GATE TO 
THEDnnn □□HIDDEN CITY” 

5220 N = 0:E = 1:S = 0:W=1:RETURN 
5230 REM“LOCATION 16** 

5240 PRINT “YOU ARE IN THE ENTRANCE 
HALL” 

5250 N = 1 :E = 1 :S = 1 :W= 1 :RETURN 
5260 REM “LOCATION 17** 

5270 PRINT “YOU ARE IN THE COURTYARD” 
5280 N = 1:E = 1:S = 0:W = 1:RETURN 
5290 REM“LOCATION 18** 

5300 PRINT “YOU ARE IN THE GARDEN” 
5310 N = 0:E = 0:S = 1:W=1:RETURN 
5320 REM ** LOCATION 22“ 

5330 PRINT “YOU ARE IN THE CUPBOARD” 
5340 N = 1:E = 0:S = 0:W = 0:RETURN 
5350 REM "LOCATION 24** 

5360 PRINT “YOU ARE IN THE THRONE 
ROOM” 

5370 N = 1:E = 0:S = 0:W = 0: RETURN 


Don’t worry about the liberal use of memory- 
eating REM statements. At this early stage of 
program development it is very important to 
know what each piece of program does, or 
which location number a particular description 
refers to. They can always be removed later. 

After each location description line, there is 
another line containing information about the 
possible exits from the location. The variables 
N, S, E, and W refer to North, South, East and 
West. These variables can take one of two 
values — 0 means that there is no exit in that 
direction, whilst 1 means that there is an exit. 

Finally, there is a RETURN after each section 
of this program because each location descrip- 
tion will be called by a GOSUB. 

The extra IF . . . THEN in the Dark Room 
section tests if the adventurer has the lamp, but 
a description of the variables will be covered 
later when objects are discussed. 

Next time you’ll see how to move the 
adventurer round the locations. 

4. The final stage before starting to 
program. The grid is a direct copy of the 
map into a form that’s easy to work from 
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You have already seen how to use 
maths functions for circular 
graphics. Now, look at some more 
sophisticated uses for SIN and COS, 
including a working clock 


In Part 1 of this series of articles, on pages 250 
to 257, you looked at some of the mathematical 
and angular functions available on your com- 
puter. These have already proved themselves 
to be very valuable tools for a range of graphics 
applications. Now, let’s look closer at how they 
work, and at some more possible uses for them. 

The functions of particular interest at this 
point are the sine and cosine, and if you are 
not already familiar with these, you should 
look through the first article. 

In that article, you saw how the functions 
can be related to the position of a point around 
the circumference of a circle, and how to use 
them to work out the coordinates of any point. 
The compass program on pages 252 and 253 
used this to PRINT the numbers marking the 
directions in their correct positions around the 
compass face. 



DRAWING A CLOCK' 


So far, none of the programs has done any- 
thing that has much practical application, 
whereas in fact there is a whole range of uses 
for the trigonometrical functions. Future art- 
icles will cover these in more depth, but for 
the moment, let’s have a look at how to draw a 
clock. You should by now have a very good 
idea of how one could be drawn. 

The principle is very similar to the compass 
face, except that instead of you INPUTing a 
number which is then shown on the circle, the 
computer needs to select the angles for itself, 
increasing with time. 

The programs which follow do just that. 
They calculate the positions of the clock 
hands, using SIN and COS, to show the correct 
time. 

Although it would be easy enough to draw a 
normal 12 hour clock, this program draws a 24 
hour one which has numbers from 1 to 24 
around the face. This is because it gives more 
opportunity to examine the routines which 
PRINT the numbers. After you have typed and 
RUN it we shall look at exactly what SIN and 
COS are doing. 

In the compass program, numbers were 
printed around the circle to mark the various 
degrees. The clock program prints numbers 
around the circle to mark the time, in other 
words numbers from 1 to 24. These are set up 








■ 

DRAWING A CLOCK 

■ 

ADDING ROMAN NUMERALS TO 

■ 

POSITIONING NUMBERS ROUND 


THE CLOCK 


THE CLOCK FACE 

■ 

DRAWING SPIRALS 

■ 

DRAWING THE HANDS 

■ 

USING SIN AND COS TO DRAW 

■ 

ADDING AN ALARM 


MORE ELABORATE PATTERNS 



by a FOR . . . NEXT loop and PRINTed at 
coordinates determined by SIN and COS, 
STEPping to 24 points around the circle. 

Part of the Dragon and Tandy program may 
seem familiar to you if you have used the 
routine for DRAWing characters on the screen 
which was given on page 191. It is repeated in 
this program because the computer cannot 
PRINT on the screen while in PMODE 4 — so it is 
used to place the numbers around the 
clockface. 

If you SAVEd this routine from the earlier 
article, you can LOAD it into your computer to 
avoid having to retype it, then add the extra 
lines in the program below. 

The same routine would also work to add 
numbers or directions to the compass program 
covered earlier, and you may like to try 
adapting the program accordingly. 

When the face is drawn, the computer 
draws a line automatically, showing the second 
hand of a clock. 

The angle it draws starts at 0 degrees, or the 
top of the clock face, and gradually gets larger 
until it has reached 360 degrees, or back to the 
top again in the same way as the second hand 
of a clock. The speed at which it STEPs is 
governed by a PAUSE command or by the 
timer in the computer. 

The clock’s hands are moved using a FOR 
... NEXT loop on the Commodore and Spec- 
trum. The Acorn, Dragon and Tandy 
programs use a variable which is updated by 
the timer each time that the program is run 
through (the program is a continuous loop). 
The second hand moves round every time the 
variable shows that one second has passed. 

5 CIRCLE 134,92,70 

6 LET q = — 1 

10 FOR n = 1 TO 24 

20 PRINT AT 10 — 1 0*COS (n/12*PI), 

16 + 10*SIN (n/12*PI);n 
30 NEXT n 

40 FOR t = 0 TO 20000 

50 LET a = t/30* PI 

60 LET sx = 65*SIN a: LET sy = 

65*COS a 

70 PLOT 134,92: DRAW OVER 1 ;sx,sy 
80 PAUSE 42 


90 PLOT 134,92: DRAW OVER 1;sx,sy 
100 NEXT t 

BE 

10 HIRES 0,1 

20 CIRCLE 160,100,100,100,1 
30 T=0 

40 FOR X= 15 TO 360 STEP 15:T=T+1 
50 TEXT 1 45 -+- 90*SIN(X/1 80*tt),98 
- 90*COS(X/1 80*7t),STR$(T), 1,1,10 
60 NEXT X 

70 T=6:T1 =357:T2 = 345:C = 12: 

Cl = 354:C2 = 330 
80 A = C/1 80*71 

90 LINE 160,1 00, 60*SIN(A) + 160, 

100 — 60*COS(A),0 
100 A= T/1 80*7r 

110 LINE 160,1 00,60* SIN(A) + 160, 

100 — 60*COS(A),1 
120 C = T:T = T + 6:IF T > 360 THEN 
T = 1 :C1 =T1:T1 =T1 +3:IFT1 = 

> 360 THENT1 = 0:C2 = T2:T2 = T2 + 1 5 
130 IF T2> 360 THEN T2 = .1 
140 A = Cl /1 80*71 
150 LINE 160, 100, 55*SIN(A) + 160, 

100 — 55*COS(A),0 
160 A=T1/1 80'ti 
170 LINE 1 60,1 00, 55*SIN(A) + 160, 

1 00 — 55* C0S{A),1 
180 A = C2/1 80*7r 
190 LINE 1 60,1 00,40*SIN(A) + 160, 

100— 40*COS(A),0 
200 A=T2/1 80*tt 
210 LINE 1 60,1 00, 40*SIN(A) + 160, 

1 00 — 40*COS(A),1 
220 GOTO 80 

BE 

10 GRAPHIC 2 
20 K=6 

30 FOR Z=tt/12 TO 2*7iSTEPti/12: 

K = K + 1 :IFK > 24THENK = 1 
40 CHAR 1 0 + 9*SIN(Z),9 + 9*C0S(Z), 
STR$(K):NEXT 
50 CHAR 1 9 “24” 

60 CIRCLE 1,540,500,351,351 
70 T= 6:T1 = 357:T2 = 345:C = 1 2: 

Cl = 354:C2 = 330 
80 A = C/1 80*7i 

90 DRAW 0,540,500 TO 200*SIN(A) 

+ 540,500 -200*COS(A) 


303 





304 



100 A=T/180*tt 
110 DRAW 1,540, 500 TO 200*SIN 
(A) + 540,500 - 200*COS(A) 
120 C = T:T=T+3:IFT> 360THEN 
T=1:C1 =T1:T1 =T1 + 3:IFT1 
= > 360THENT1 =0:C2 = T2: 
T2 = T2 + 1 5 

130 IF T2 > 360 THEN T2 = .1 
140 A=C1/180*tt 
150 DRAW 0,540,500 TO 200‘SIN 
(A) + 540,500 - 200* COS(A) 
160 A=T1/180*7i 
170 DRAW 1,540,500 TO 200*SIN 
(A) + 540,500 - 200* COS(A) 
180 A = C2/180 *ti 
190 DRAW 0,540,500 TO 150’SIN 
(A) + 540,500-1 50 *COS(A) 
200 A = T2/1 80*7i 
210 DRAW 1,540,500 TO 150*SIN 
(A) + 540,500-1 50 *COS(A) 
220 GOTO 80 

B 


10 T=1 
20 M0DE1 
30 GCOL3,3 
40 MOVE 680,782 


50 FOR A=0TO2*PI STEP .05 
60 DRAW680 + 270*COS(A + PI/2), 

512 + 270*SIN(A + PI/2) 

70 NEXT 
80 VDU5 

90 FOR A = 2* PI - PI/1 2 TO 0 STEP - PI/1 2 
100 MOVE650 + 310* COS(A + PI/2), 

525 + 31 0*SIN(A+ PI/2) 

110 PRINT;T:T = T+1 
120 NEXT 

1 30 T=0:TIME = 0:TM = 0:TH = 0 
140 MOVE680,512 

150 DRAW 680 + 200*SIN(PI/60*TH), 

512 + 200*COS(PI/60*TH) 

160 MOVE680,512 

170 DRAW 680 + 250*SIN(PI/30*TM), 

51 2 + 250*COS(PI/30*TM) 

180 MOVE680,512 

190 DRAW 680 + 150*SIN(PI/30*T), 

51 2 + 1 50*COS(PI/30*T) 

200 REPEAT 

210 MOVE680,51 2 

220 DRAW 680 + 1 50* SIN(PI/30*T), 

512 + 1 50*COS(PI/30*T) 

230 MOVE680,51 2 
250 T = TIME/1 00 

260 DRAW 680 + 150*SIN(PI/30*T), 


51 2 + 1 50*COS(PI/30*T) 

270 IF TIME >6000 THEN PROCMIN: 

TIME = TIME -6000 
280 UNTIL0 
290 DEF PROCHOUR 
300 MOVE680,512 

310 DRAW 680 + 200*SIN(PI/36*TH), 
51 2 + 200* COS(PI/36*TH) 

320 TH = TH + 1 
330 MOVE680,512 

340 DRAW 680 + 200*SIN(PI/36*TH), 
512 + 200*COS(PI/36*TH) 

350 ENDPROC 
360 DEF PROCMIN 
370 MOVE680,512 

380 DRAW 680 + 250*SIN(PI/30*TM), 
51 2 + 250*COS(PI/30*TM) 

390 TM = TM + 1 
400 MOVE680,512 

410 DRAW 680 + 250*SIN(PI/30*TM), 
51 2 + 250*COS(PI/30*TM) 

420 IF (TM MOD 20) = 0 THEN 
PROCHOUR 

430 IF TM>59 THEN TM = 0 
440 ENDPROC 


E2 


10PMODE 4,1 
20 DIM LE$(26) 

30 PCLS 

40 FOR K = 0 TO 26:READ LE$(K):NEXT 
50 FOR K=0 TO 9:READ NU$(K):NEXT 
60 DATA BR2,ND4R3D2NL3ND2BE2, 
ND4R3DGNL2FDNL3BU4BR2, 
NR3D4R3BU4BR2,ND4R2FD2 
GL2BE4BR,NR3D2NR2D2R3 
BU4BR2 

70 DATA NR3D2NR2D2BE4BR,NR3D4R3 
U2LBE2BR,D4BR3U2NL3U2BR2, 
ND4BR2,BD4REU3L2R3BR2, 
D2ND2NF2E2BR2 

80 DATA D4R3BU4BR2,ND4FREND4BR2, 
ND4F3DU4BR2,NR3D4R3U4BR2, 
ND4R3D2NL3BE2,NR3D4R3NHU4BR2 
90 DATA ND4R3D2L2F2BU4BR2,BD4R3 
U2L3U2R3BR2,RND4RBR2,D4R2 
U4BR2,D3FEU3BR2,D4EFU4BR2 
100 DATA DF2DBL2UE2UBR2,DFND2EUBR2, 
R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2,BDEND4BR2, 
R2D2L2D2R2BU4BR2,NR2BD2NR2B 
D2R2U4BR2,D2R2D2U4BR2,NR2D2 
R2D2L2BE4,D4R2U2L2BE2BR2, 
R2ND4BR2,NR2D4R2U2NL2U2 
BR2,NR2D2R2D2U4BR2 
200 MX = 1 27:SX= 1 27:MY = 95: 

QV = t)R 

210 SCREEN 1,1 

220 CIRCLE(127,95),60,1 

230 PI = ATN(1)/15 

240 FOR K = 5 TO 1 20 STEP 5 
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250 LINE(1 27 + 55*SIN(K*PI),95 — 55 
*COS(K*PI))-(127 + 59*SIN 
(K*PI),95 — 59*COS(K*PI)),PSET 
260 A$ = MID$(STR$(K/5),2): DRAW 
“BM” + STR$(INT(1 23 + 68*SIN 
(K*PI))) + + STR$(INT(92 

— 68*COS(K* PI))) + “C5S6”: 

GOSUB 1000 
270 NEXT K 

280 IF TIMER <50 THEN 280 

290 TIMER = 0:T = T-h1 

300 IF T= 86400 THEN T=0 

310 H = T/3600 

320 M = T/60 — INT(H)*60 

330 S = T — INT(M)*60 — INT(H)*3600 

340 LX = SX:LY = SY 

350 SX = 127 + 45*SIN(S*PI*2): 

SY = 95 — 45*COS(S*PI*2) 

360 LINE(1 27,95) — (SX,SY),PSET 
370 LINE(1 27,95) — ( LX, LY), PRESET 
380 LINE(1 27,95) -(MX, MY), PRESET 
390 MX = 127 + 30*SIN(M*PI*2):MY = 

95 — 30*COS(M*PI*2) 

400 LINE(1 27,95) — (MX,MY),PSET 
410 LINE(1 27,95) — (HX,HY), PRESET 
420 HX= 127 + 20*SIN(H*PI*5):HY = 

95 — 20*COS(H*PI*5) 

430 LINE(1 27,95) — (HX,HY),PSET 

440 GOTO 280 

1000 FOR M = 1 TO LEN(A$) 

1010 B$ = MID$(A$,M,1) 

1020 IF B$> = “0” AND B$< =“9” THEN 
DRAW NU$(VAL(B$)):GOTO 1050 
1030 IF B$ = “ ” THEN N = 0 ELSE 
N = ASC(B$) — 64 
1040 DRAW LE$(N) 

1050 NEXT 
1060 RETURN 

The ZX81 does not have a command to DRAW 
a line, and so would have to PLOT each point of 


the clock’s hands separately. Since the reso- 
lution of its screen is not as high as the other 
machines’, the ZX81 version would be less 
than good, so there is no version of this 
program for the ZX81. 

Chapter 19 of the ZX81 manual gives a 
clock program for the ZX81 which you can use 
as an example, but this clock has no hands. 
The outline of this clock is just the numbers 
marking the time: there is no circle around its 
edge as there is in the programs above. 

The Commodore 64 program is in Simons’ 
BASIC, since a version in normal Commodore 
BASIC would be very complicated; you thus 
need a Simons’ BASIC cartridge plugged in to 
your machine. This also applies to the other 
Commodore 64 programs in this article. 

The Commodore Vic 20 program is written 
using the ‘Super Expander’ cartridge, and will 
not RUN unless this cartridge is plugged in. 
This is because the standard graphics com- 
mands on the Vic are too complicated to be 
used for drawing circles easily. This also 
applies to the other Vic programs in this 
article. 

Each version of this program uses a very 
similar routine to PRINT the numbers at their 
correct positions around the clock face, and 
this routine shows clearly the way that SIN 
and COS can be used to control PRINTing 
operations. 

This routine takes a form something like: 

10 FOR n = 1 TO 24 

20 PRINT AT(x coordinate of screen 

centre + 10* SIN (2*7r/n)),y coordinate of 
screen centre -10* COS (2*7t/n));n 
30 NEXT n 

Each of the computers handles this in a slightly 
different way, and these may make the routine 
seem more complicated than it actually is. For 


example, they may set up an extra variable for 
the angle, rather than using (2*7t/n) in the 
PRINT AT statement. The routine for the 
Spectrum follows the same formula as those 
for the other computers, but looks different. 
The reason for this is that the Spectrum uses a 
slightly different method of PRINTing AT a 
location on the screen: instead of the first 
number after the command being the x coordi- 
nate, it is the y coordinate. What is more, a 
value of 0 for this number is not, as usual, at 
the bottom of the screen, but at the top. To see 
this on the Spectrum, try: 

PRINT AT 0,0;“a” 

You should see an ‘a’ PRINTed at the top left 
hand corner of the screen. 

Because of this peculiarity of the 
Spectrum’s PRINT AT command, the COS is the 
first function in the line: since it is COS which 
gives the vertical position of the point around 
the circle’s circumference. 

If you compare the example above with the 
actual programs, you will notice that the FOR 
. . . NEXT loop governing the PRINT command 
is different for each version. In fact this need 
not be the case, as each different loop would 
work on any of the computers but the dif- 
ferences were chosen for convenience on each 
machine’s operating system. 

The aim of the routine is to PRINT numbers 
from 1 to 24 to mark the time around the clock 
face. So the Spectrum program’s loop is 

FOR n = 1 TO 24 
NEXT n 

Within the loop, the routine calculates the 
PRINT AT positions each time the Spectrum 
goes through the loop, by dividing a complete 
circle into 24 segments. 



A Spectrum 24 hour clock 



Moving spirals on the Spectrum 
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The Dragon and Tandy do the same as the 
Spectrum except that their program looks 
slightly different because they have to use a 
special routine for DRAWing letters on the 
graphics screen. 

So the Dragon and Tandy do not actually 
PRINT a number related to the STEP that 
controls their angular position. Instead, what 
they PRINT is called up by the command STR$ 
in the line that controls the PRINTing. STR$ 
simply refers back to the special DRAWing 
routine and has nothing to do with where the 
numbers are drawn, which is controlled by the 
variable K. 

Unlike the loops on these machines, which 
just go through 24 steps, the Acorn and 
Commodore loops both involve measurements 
of a circle. 

The Commodore loops (one for the Vic and 
another for the Commodore 64) are both doing 
the same thing. The Vic loop is counting in 
radians, though, while the 64’s loop counts in 
degrees. The Acorn version counts in radians. 

As you know, there are 360 degrees in a 
circle. So to get 24 numbers PRINTed around 
the clock-face, at equal intervals, the numbers 
must be placed at 360/24 degree (15°) gaps. In 
the same way, as there are 2*PI radians in a 
complete circle, the numbers must be placed at 
gaps of 2*PI/24, or PI/12 radians. 

Note that in all of the loops, the first 
number is not 0, but the first STEP up (1 on the 
Spectrum, 5 on the Dragon, 15 on the Com- 
modore 64, and PI/12 on the Acorn and Vic 
20). This is so that the first number will be 
PRINTed, or on the Dragon, DRAWn, at the 1 
o’clock, not the 24 o’clock position. 

Since the Commodore and Acorn versions’ 
FOR . . . NEXT loops do not contain the inform- 
ation that is PRINTed, in other words the 
numbers 1 to 24, but only affect where it is 


PRINTed, something must be included to tell 
the computer what to PRINT. So, a variable is 
used: T on the Acorn and Commodore 64 
versions, and K on the Vic 20 program. 

Every time that the computer RUNs through 
this loop, the variable is increased by 1 : so that 
the next number placed on the screen will be 
the correct next number around the clock-face. 

The remainder of the program works in this 
way using SIN and COS to calculate the 
positions of the clock hands, and either a 
variable or the computer’s built-in timer to 
keep track of the time so that the second hand 
actually moves once every second. 


CALLING UP DATA 


You can use a different method of telling the 
computer what to PRINT to the method used in 
the clock programs: you can store the numbers 
in a DATA statement and READ them one at a 
time as the computer goes through the FOR . . . 
NEXT loop. 

While this may seem an unnecessary waste 
of memory, it leads on to some interesting 
variations that you can produce. 

For example, you will probably have seen a 
clock face with Roman numerals. By using a 
string variable, and storing letters in a DATA 
statement instead of numbers, you can change 
your conventional clock into a more impress- 
ive one. 

You will probably need to change the size 
and/or the position of the circle, so that it does 
not obscure some of the Roman numerals (the 
number 8 in Roman numerals is VIII, which 
takes up quite a lot of space!). 

You can also try to make a 24 hour Roman 
numeral clock. It is surprising how simple it is 
to change from a 12 hour to a 24 hour clock 
using this method. 

Along similar lines, try to include an alarm 



into your program. To do this, you will have to 
work out the position that the clock hands will 
be in when the set time is reached, using SIN 
and COS, and add an IF ... THEN statement so 
that the computer BEEPs, rings, or chimes as 
soon as the variables which set the clock hands 
are equal to the values you have worked out. 

Using the same principles, you could make 
a clock which would cover not just 12 hours or 
one day, but a week, a month or even a year! 
The only limit is the amount of information 
that you can fit onto your screen. 








DRAWING PATTERNS 


The uses you have seen so far for SIN and COS 
have been quite functional: a clock, a compass, 
and a graph. But perhaps the most interesting 
use of them, is the rather more abstract 
graphics displays that they can be manipulated 
to achieve. 

Just by DRAWing a series of circles and 
ellipses some very impressive pictures can be 
DRAWn. But think what would happen if you 
made a few changes: you could move the 
centre of the circle, or make it grow each time it 
goes round, for example. You can achieve 
changes like this very easily on your computer 
by just adding extra program lines to the 
routines you already know. 


DRAWING A SPIRAL 


Pan one of this series of articles gave you a 
routine for PLOTting pixels to mark the shape 
of a circle. You can change this a bit and get a 
spiral instead of a circle. Here are versions of 
the adapted routine which will draw a spiral 
pattern for you: 


10 LET 2 = 0 

50 FOR n = 0 TO 8* PI STEP PI/10 
60 PLOT 128 + (5 + z)*SIN n,88 + 
(5 + z)* COS n 
70 LET z = z + 1 
80 NEXT n 


KE 

10 HIRES 0,1 

50 FOR N = 0 TO 10*7t STEP w/10 
60 PLOT 160 + (5 + Z)*SIN(N), 

100 + (5 + Z)*COS(N),1 
70 Z=Z+1 
80 NEXT N 
90 GOTO 90 

sa \ 

10 GRAPHIC 2 

50 FOR N = 0 TO 10*7t STEP tt/50 
60 POINT 1,511 +(5 + Z)*SIN(N), 
511 + (5 + Z)*C0S(N) 

70 Z=Z+1 
80 NEXT N 
90 GOTO 90 


B 

10MODE1 

50 FOR T = 0 TO 1 0* PI STEP.1 
60 PLOT69,SIN(T)*T*1 5 + 680, 
COS(T)*T*15 + 512 
70 NEXT 



10 PMODE 4,1 
20 PCLS 
30 SCREEN 1,1 
40 P| = 4*ATN(1) 

50 FOR N = 0 TO 10 # PI STEP PI/10 
60 PSET(1 27 4- (5 + Z) # SIN(N), 


95 + (5 + Z)*COS(N),5) 

70 Z = Z + 1 
80 NEXT N 
90 GOTO 90 

The only difference between this program and 
the version that draws a circle is the variable Z. 
(The Acorn uses a different method.) 

This variable starts at 0, and is increased 
every time that the computer goes through 
the loop. Its effect on the program is in the 
calculations that take place in Line 60. 

The PLOTted point is controlled, as in the 
simple circle, by the SIN and COS of the 
control variable in the loop. These have to be 
multiplied by a number so that they are large 
enough to be noticed on the screen. 

So, by making the number by which you 
multiply the SIN and COS larger each time the 
computer goes through the loop, you make the 
position of each pixel get PLOTted further away 
from the centre than before. The variable 
which controls this is Z. This results in the 
spiral growing out gradually from the centre. 

As with the circle version of this routine, 
you can get different results by changing the 
STEP (in Line 50) or by changing the amount 
that Z is incremented each time. Some interes- 
ting STEPs are: 2, 5, PI and 2*PI. Try and work 
out why the results are different (remember 
that the computers all work in radians, and that 
there are 2 times PI radians in a circle). 
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You can also produce ‘spiral ellipses’ in the 
same way that you produced normal ellipses 
with the first version of this program: by 
changing the number inside the brackets in 
Line 60 (outside brackets on the Acorns). 


MORE ELABORATE PATTERNS 


There is a child’s toy which involves drawing 
pretty patterns by using a set of plastic 
‘wheels’. The child places a small wheel inside 
a large wheel, and puts a ball point pen 
through a hole in the small wheel; by moving 
the small wheel around inside the large one, 
the pen is moved and draws the patterns on 
paper. 

The centre of the small circle is moving all 
the time as the child draws so that the line 
forms a continuous chain of spirals. So the 
computer can produce similar effects by 
PLOTting circles whose centre is continuously 
moving. 

The programs below do just this: they PLOT 
a series of points of a circle, whose centre is 
continuously moving. And on all the com- 
puters, except for the Dragon/Tandy version, 
the colour is chosen randomly. 

Once the program has been RUN it will 
continue indefinitely. To change the pattern 
all you need do is press any key (or press 
I ESCAPE 1 if you have an Acorn computer) and 
the computer will start again. 


10 CLS : LET x = 0: LETp = 0: 

LET q = 0 

20 LET z = INT (RND*7): INK z: 

LET a = INT (RND*50) 

30 LET b = INT (RND*50) 

40 FOR n = 0 TO 200* PI STEP b/100 
50 IF INKEYS <>“” THEN 
GOTO 10 

60 LET p = 128 + (a — b)*SIN n: 

LET q = 88 + (a — b)*C0S n 
70 PLOT p + b*SIN x,q + b*C0S x 
80 LET x = x — a/1074 
90 NEXT n 
110 GOTO 20 

KH 

10 HIRES 0,1 

20 A = RND(1)*55:A2 = RND(1)*45 
30 FOR N = 0 TO 200*tt 
STEP A2/90 

40 P = 160 + (A — A2)*SIN(N):Q = 100 
+ (A— A2)*C0S(N) 

45 PP=160 + (A— A2)*SIN(N — (A2/ 
90) ) : QQ = 1 00 + (A — A2) * COS 
(N — (A2/90)) 

50 LINE PP + A2*SIN(XX), QQ + 
A2*C0S(XX),P + A2‘SIN(X), 
Q+A2*COS(X),1 


60 XX=X:X=X— A/190 
70 IF PEEK(1 97) < >64 THEN RUN 
80 NEXT N 
90 PAUSE 5:RUN 

sa 

10 GRAPHIC 2:SCNCLR 
20 A = RND(1)*250:A2 = RND(1)*250 
30 FOR N = 0 TO 200*tt STEP A2/90 
40 P = 511 + (A— A2)*SIN(N):Q=511 
+ (A — A2)*C0S(N) 

45 PP = 511 + (A— A2)*SIN(N — (A2/ 
90)):QQ=511+(A — A2)*C0S 
(N — (A2/90)) 

50 DRAW2,PP + A2*SIN(XX),QQ + 
A2*C0S(XX) TO P + A2*SIN 
(X),Q + A2*C0S(X) 

60 XX = X:X = X — A/1 90 

70 IF PEEK(1 97) < >64 THEN RUN 

80 NEXT N 

90 FOR Z=1 TO 2000:NEXT Z:RUN 


10 ON ERROR GOTO 20 
20 M0DE1 :VDU1 9, 2, 2, 0,0, 0,1 9,3, 

4 0 0 0 

30 X=V:GCOL0,RND(3) 

40 A= RND(500):A2 = RND(500) 

50 MOVE 680,512 + A 
60 FOR N = 0 TO 200* PI STEP A2/500 
70 P = 680 + (A— A2)*SIN(N):Q = 512 
+ (A — A2)*COS(N) 

80 DRAW P + A2*SIN(X),Q + 
A2*C0S(X) 

90 X = X — A/1 074 
100 NEXT 
110 GOTO 20 


IQ 


10 PMODE 4,1:PCLS:SCREEN 1,1 
20 PI = 4*ATN(1) 

30 A= RND(50) - 1 :B = RND(50) - 1 
40 FOR N = 0 TO 200* PI STEP 
B/100 

50 IF INKEYS < >“” THEN 10 
60 P = 128 + (A— B)*SIN(N):Q = 

95 + (A— B)*C0S(N) 

70 PSET (P+B*SIN(X),Q+B* 

C0S(X),5) 

80 X = X — A/1 074 
90 NEXT 
100 GOTO 30 

You can see that the FOR ... NEXT loop 
introduces a circle drawing routine straight 
away: the loops for each computer are 

FOR N = 0 TO 200 * PI 

As with the other program which uses SIN and 
COS in this article, both functions are included 
inside the loop. They calculate the position of 


the next pixel to be PLOTted (or, in the case of 
the Acorn and Commodore computers, 
DRAWn). Although of course, the calculations 
are rather more complicated than a simple ‘SIN 
N’ or ‘COS N\ 

The rest of the calculations in this Line are 
to increase the result of the SIN or COS sum so 
that it represents a screen position. This is why 
the centre of each computer’s high resolution 
screen features in the calculations. You should 
be able to see the ‘y’ coordinate of the centre of 
the screen in one half of the program Line (the 
one which also includes COS), and the ‘x’ 
coordinate in the other half. 

The other factors in the calculations are two 
variables. These are given random values at 
the beginning of each program. It is these 
random factors which enable the computer to 
display a different pattern almost every time it 
RUNs. Try changing the value of these random 
variables and see what difference it makes. 

You can also change the program in another 
way: change the STEP of the FOR . . . NEXT loop. 
This should make the density of the dots either 
higher or lower on the Spectrum, Dragon and 
Tandy, depending on whether you increase or 
decrease the STEP. 

In order to generate the pattern, the centre 
of the circle is changed after every pixel has 
been PLOTted. This is done by putting the 
centre of the circle itself on the circumference 
of another circle which moves round with each 
step through the loop. This is the function of 
the second set of SIN and COS calculations, 
based on x. This variable is reduced very 
slightly each time that the computer goes 
through the loop. 

Try reducing the variable (x) by a different 
amount to get another variation on the pattern. 
These six values give very interesting results: 
A/10, A/ - 1 0, A/ - 50, A/0.5, A/0.1, A/0.001 . 

Each of the computers’ versions allow you 
to press a key while the program is RUNning to 
start the program again. The Spectrum, 
Dragon and Tandy use IN KEYS to check for a 
key-press, while the Commodore PEEKs into its 
memory to find out the same thing. 

On the Acorn computers, you can use the 
I ESCAPE 1 key. This is where the Acorn com- 
mand ‘ON ERROR GOTO . ..’ beco mes very 
useful. If you press the I ESCAPE | key the 
computer records it as an error, and so goes to 
the Line dictated by the command. 

Future articles will cover more uses for the 
trigonometrical and angular functions, but the 
next part of the series on maths functions is all 
about the squares, cubes, square roots and 
other powers that you can use to control how a 
variable grows. Once again, these have uses 
that at first sight would seem to have very little 
to do with mathematics. 
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WHAT ADDRESSING IS 
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■ 
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Warning: Trying to write machine 
code programs in hex could damage 
your brain. But you can do it easily 
in assembly language and then 
translate into hexadecimal 

Machine code programs are fast, efficient and 
very effective, but they are extremely difficult 
to write and debug. Even to the experienced 
eye they can appear to be a meaningless string 
of numbers, because instructions, data and 
addresses all appear as strings of hex digits 
joined end to end. 

The solution is not to write programs in 
machine code at all. Instead, most machine 
code programs are written in assembly lan- 
guage, then translated into machine code. 
Usually this is done by another program called 
an assembler. But if you don’t have an as- 
sembler you can do the translation by hand 
and key in the resulting machine code using 
your machine code monitor. 


Of course, this means that you have to learn 
assembly language, but that is nowhere near as 
difficult as learning machine code. The 
mnemonics (pronounced ‘nimonics’) 
which represent the machine’s 
opcodes are practically self- 
explanatory. Data and ad- 
dresses are figures, 
just as they are 
in machine 
code. 


ASSEMBLY LANGUAGE 


But with the opcodes in mnemonics, the 
machine code’s solid string of numbers is 
broken up and you can see what is going on. 

When you hand assemble, all you have to do 
is look up the mnemonics in the appropriate 
table in the guide to the microprocessor chip in 
your computer. The Spectrum uses the Z80, 
the Dragon and Tandy use the 6809 and the 
Commodore the 6510 (which is almost ident- 
ical to Acorn’s 6502). The result in the table 
gives you the numerical opcode. Slot that into 
place and the translation is practically done. 

There is only one other thing to remember. 
On the Sinclairs and the Commodores, you 
must remember to switch round the bytes of 
any two-byte address or piece of data. This is 
because these machines store numbers in the 
low-byte/high-byte format (see page 237). The 
Dragon and Tandy use a high-byte/low-byte 
format, so you can leave the pairs of digits in 
two-byte addresses or pieces of data in their 
normal order. 


THE MNEMONICS 


ADC— add with carry; DEX— decrement (sub- 
tract 1 from) register X; JSR — jump to subrout- 
ine; TAX— transfer data from accumulator to 
index register X; CMP — compare; BEQ — 
branch if equal to zero. 

ADD— add; JSR— jump to subroutine; INCB — 
increment accumulator B; BNE — branch if not 
equal to zero; CLRA— clear contents of ac- 
cumulator A, that is set A to zero; TFR X,Y— 
transfer contents of register X to register 
Y; SEX— extend accumulator B into 
accumulator A. 

As you can see, these 
mnemonics — like 
the hexa- 


On page 67 you saw 
that LD meant 


LoaD and J 
meant Jump. Here 
are a few more examples of 
the assembly language mnemonics 
for the various microprocessors 
used by these machines: 


add — add; call — call a subroutine; inc b— 
increment (add 1 to) register B; res— reset a 
bit to zero; jrnz— jump relative if non-zero; 
set — set a bit to one. 


decimal 
machine code 
they represent — 
either manipulate the 
contents of a register, set 
a flag— which itself is mani- 
pulating the flag, process or status 
register — or jump (or branch) back and 
forth in the program itself. These are the 
only things that machine code instructions 
can do. 

Although the meaning of these mnemonics 
is often transparent do not expect to under- 
stand how various instructions apply to differ- 
ent registers — any more than you would expect 
to understand hexadecimal machine code in- 
structions at first glance. Later chapters will 
explain how each instruction works. But first 
you have to learn how to translate assembly 
language mnemonics into machine code hex so 
that you can convert assembly language 
listings in INPUT and other publications 
into machine code and feed them into your 
computer using your machine code monitor. 
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ADDRESSING 


Translating assembly language into machine 
code isn’t quite that easy, though. If you look 
at the instruction set table in a guide to your 
chip, you will find that a simple instruction like 
LDA— which means LoaD the A register or 
accumulator— can be translated into between 
five and 15 different opcodes, depending on 
which machine you have. You have to decide 
on which one of these opcodes to use. 

The different opcodes depend on which 
type of addressing is being used. The type of 
addressing means the various ways inform- 
ation is accessed by the microprocessor. 

In this article we shall look at the theory of 
how this is done on your computer. In part two 
of this article on hand assembly, you will have 
a chance to hand assemble a couple of useful 
assembly language routines yourself, and learn 
how they work. 


The simplest type of addressing with the Z80 
chip is immediate addressing. Here a number 
follows the assembly mnemonic. For example: 

Id a, 4 

This means load the A register with the 
number 4 and translates to 3 E 04 in machine 
code. 3E is the code for Id a and the data, 04, 
remains the same. 

In direct addressing , an address where the 
data can be found is given instead of the data 
itself. For example: 

Id a,(0E2D) 

means load the contents of memory location 
0E2D into the A register. This translates into 
3A 2D 0E. (Note that the two bytes of the 
address have been switched round.) 

Direct addressing also works the other way 
round: 

Id (0E2D), a 

means load the contents of the A register into 
memory location 0E2D and it translates into 32 
2D 0E. (Again the two bytes are swapped.) 


When indirect addressing is used, the ma- 
chine is told where to find the address of the 
data needed. For example, the instruction: 

Id a, (hi) 

means load the A register with the data 
contained in the address in the HL register. In 
other words, the microprocessor looks in the 
HL register for the address of the data which it 
loads into the accumulator. 

Again, this works the other way round. 

Id(hl),a 

means load the contents of the A register into 
the memory location whose address is in the HL 
register. 

There is a special type of indirect address- 
ing which is called indexed addressing. Here 
one of the two index registers — IX and IY — and 
the actual address to be used in the operation, 
is given by an offset (see page 238) which is 
added to the contents of the IX or IY register. 
A typical instruction would be: 

Id a,(ix + 2F) 

Note that the offset is only one byte. 

Data can also be transferred from one 
register to another. This is called register-to- 
register addressing and its instructions look like 
this: 

Id d,b 

which means load the contents of the B 
register into the D register. 

Relative addressing is only used with jump 
commands which are the equivalent of GOTOs 
in BASIC. It tells the computer how many 
bytes to jump forwards or backwards. For 
example: 

jrnz 0FC 

The mnemonic jrnz means jump relative if 
non zero — that is if the zero flag in the flag 
register is not set (see page 238). The FC after 
it tells it where to jump to. (The 0 in front of it is 
to differentiate the hex number FC from any 
label FC.) FC is —4 in two’s complement hex. 


So if the zero flag is not set, the microprocessor 
jumps back four bytes in the program. 

But the four bytes are counted from the end 
of the jrnz 0FC instruction, which is itself a 
two-byte instruction — it translates into 20 FC 
in machine code. So the microprocessor jumps 
back to the instruction which appeared two 
bytes before this one. 

In fact, relative addressing is rarely used in 
assembly language. Jumps are usually in- 
dicated by labels. These are words that are 
used as markers — like ‘loop’ — which mark 
the beginning and end of jumps. 

The marker appears in front of the instruc- 
tion to be jumped to and after the jump 
instruction. So in an assembly language 
program you will get a line like: 

loop Id a, 07 

and later, say: 

djnz loop 

The djnz means decrement the B register by 1 
and jump to where the ‘loop’ label appears in 
front of an instruction if the zero flag is not set. 
But when you translate into machine code you 
must work out the r elative jumps yourself. 

SB KS El 

The simplest form of addressing on the 6510 
and the 6502 is implied addressing. In fact, this 
is not addressing at all. For example: 

CLC 

means CLear Carry flag and does not need any 
sort of address afterwards. The action is 
carried out on the carry flag whose address is 
implied in the instruction. 

In immediate addressing , the data follows the 
instruction directly. For example: 

LDA # &04 

This LoaDs the Accumulator with the number 
4. Look up LDA in the manual for your chip 
and you will find it translates to A9 when the 
immediate addressing mode is used. So the 
whole instruction translates into A9 04. 
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Absolute addressing is where the whole 
address of a memory location follows the 
mnemonic instruction. For example: 

LDA &1122 



Where do I look up the hex 
opcodes corresponding to the 
assembly language mnemonics? 


The complete set of machine code 
instructions is given in Appendix A of 
your manual under the heading The 
character set\ This listing is somewhat 
confusing though. And it is difficult to 
use as the instructions are listed in hex 
order. You would be better off using one 
of the programming guides to the Z80 
chip or, better still, one dealing with ma- 
chine code programming specifically on 
your machine. Check that the book does 
contain a full list of the opcodes though. 
Some of them don’t. 


LTH 


Q 


The Dragon Programmer’s Reference 
Guide and other books on machine code 
programming on the Dragon and Tandy 
contain listings of the opcodes. But if you 
are seriously interested in machine code 
programming it is probably better to buy 
one of the programming guides to the 
6809 chip. 


EEl BE 

The Programmer’s Reference Guide lists 
all the opcodes and their assembly 
language equivalents. But if you are 
going into machine code programming 
seriously it is probably worth buying > 
a comprehensive guide to 
machine code programming 
on the 6502 or 6510 chips. 


means LoaD the A register with the data stored 
in memory location 1122. This is sometimes 
known as direct addressing on the Acorn 
machines’ 6502 chip. 

If you look up LDA under absolute address- 
ing, you will find the opcode AD. And the 
whole instruction translates into AD 22 11. 
Note here that the two bytes of the address are 
swapped around when you translate from 
assembly language. 

On the zero page— that is from 0000 to 
00FF— you don’t have to specify the first byte 
of the address, but you have to use a special 
zero page opcode (called a short address 
opcode) which tells the computer to look for an 
address of one byte. 

The opcode for LDA in the zero page 
addressing mode is A5, so an instruction like: 

LDA &7F 

will translate to A5 7F. 

With both absolute and zero page ad- 
dresses, it is possible to use indexed addressing. 
Here the contents of one of the index 
registers— X and Y— are added to the address 
given with the instruction to give a second 
address which is to be used. For example: 

LDA &1 1 22, X 

Say the contents of X register is 33. The 33 is 
added to 1122, to give 1155, and the ac- 
cumulator is loaded with the data found in 
memory location 1155. 

Both the X and Y registers can be used to 
index both absolute addresses and zero page 
addresses. 

(However you should note that if the sum of 
the contents of the X register and the zero page 
address are greater than FF in hex and would 
therefore fall on page one, the most significant 
byte is ignored. In zero page addressing, 
indexed or otherwise, the address used is 
always on the zero page.) 

With indexed addressing you must look up 
the assembly code mnemonic under ‘zero 
page, X’, ‘zero page, Y’, ‘absolute, X’ or 
‘absolute, Y’. 


It is also possible to address a piece of data 
indirectly using indirect addressing. This means 
you give the microprocessor an address — in 
brackets— where it will find a second address 
and it is this second address which is used. For 
example: 


means JuMP to the address given at memory 
location 1 530. But as any one memory location 
can hold only one byte and you need two bytes 
to make up an address, it looks at 1530 and 
1 531 . The first location holds the least signifi- 
cant byte of the address and the second holds 
the most significant byte, in accordance with 
the convention used by these particular micro- 
processors. So if memory location 1 530 holds 
2F and location 1531 holds 13, this means that 
the microprocessor will jump to memory 
location 132F. 

Indirect addresses can also be indexed in 
two ways. With the X register you can add an 
offset to the first address— that is the one given 
in the instruction. This is called pre-indexed 
indirect addressing. Or you can add an offset 
from the Y register to the second address — that 
is the one in the memory locations given in the 
original instruction. This is called post-indexed 
indirect addressing. 

In assembly language the two instructions 
look like this: 


The first is pre-indexed, the second post- 
indexed and you have to look up the opcode for 
LDA under (indirect, X) and (indirect), Y. This 
gives A1 and B1 respectively. So these two 
instructions translate into A1 2211 and B1 22 
11 . 

Branch instructions are conditional jumps. 
For example: 


means Branch if EQual — that is, if the zero flag 
is set to 1. Branch instructions can use relative 
addressing on some assemblers. 


BEQ 


JMP (&1530) 


LDA (&1122,X) and 
LDA (&1 1 22),Y 
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BEQ #&04 

means jump forward four bytes from the start 
of the next instruction if the zero flag is set. 
And 

BEQ # &FA 

means jump backwards six bytes if the zero 
flag is set. This is counted backwards from the 
beginning of the next instruction so two bytes 
are already taken up by the BEQ instruction. 
FA is —6 in 2s complement (see page 181). 

In assembly language, labels are mainly 
used instead of numbers. These are single 
word markers which show the microprocessor 
where to jump to. One instruction will have the 
label in front of it like this: 

label LDA &04 

and a branch will have 

BEQ label 

The assembler will then work out the relative 
jump. But if you are hand assembling you will 
have to work out the jump yourself. Machine 
code does not recognize labels, only numbers. 

The 6510 and the 6502 chips have one more 
type of addressing called accumulator address- 
ing . This is used with shift and rotation 
instructions. For example: 

ASLA 

means Shift the Accumulator Left one bit. You 
can also apply this instruction to any memory 
location — not only the accumulator. In this 
case you would replace the last A with the 
address of the memory location you wanted 
shifted. The memory location can be indexed 
with the X register only, and it will make the 
least significant bit of that byte 0 push the 
most significant bit into the carry flag and shift 
all the other bits along one place to the left. 


ES 


Manuals on the 6809 chip used in the Dragon 
and Tandy draw attention to inherent address- 
ing which is also sometimes is known as implied 
or register addressing. This simply refers to 
assembly language instructions which don’t 
need to be followed by an address as they 
operate on a register which is specified in the 
instruction itself. For example: 

DECA 

which means DECrement the A register by 1. 
Look this up under inherent addressing and 
you find the code 4A. 

In immediate addressing , the data follows the 
instruction directly. For example: 


ADDB #$7 

which means ADD 7 to the B register. The code 
for ADDB in immediate mode is CB so the 
whole thing translates to CB 07. 

On the Dragon and Tandy there is another 
form of immediate addressing using a second 
byte — known as a postbyte. In this case, in- 
structions take the form: 

TFR A,B 

which means transfer the contents of register A 
into register B. 

To translate this instruction into machine 
code, you look up TFR under immediate 
addressing (although in some of the manuals it 
is put, mistakenly, under inherent addressing). 
This gives 1 F. Then the postbyte is evaluated a 
nibble at a time. 

In the manuals for the 6809 chip you will 
find single-digit values assigned to each of the 
registers. Two of these are put together to 
make up the postbyte. 

For example, the A register is assigned a 
value of 8 and the B register a value of 9. So 

TFR A,B 

translates to 1 F 89. If the instruction had been 
TFR B,A 

the corresponding machine code instruction 
would be 1 F 98. 

In extended or absolute addressing , the full 
16-bit address of the memory location where 
the data required is stored appears after the 
instruction. For example: 

STA $7530 

which means STore the contents of the Ac- 



cumulator in memory location &H7530. This 
translates into B7 75 30. (Note that the two 
bytes of the address are not reversed when 
writing machine code as they are on most other 
home computers.) 

This is a little cumbersome since the 
translation — B7 75 30 — is a three-byte instruc- 
tion. Using direct addressing this could be cut 
to a two-byte instruction. 

The 6809 chip has a direct page register (see 
page 239) which stores the most significant 
byte of an address. So all the memory locations 
on that page can be addressed using only one 
byte, the least significant. It works like this. 

The direct page register is loaded by using 
the TFR instruction mentioned above or by the 
EXG or exchange command which exchanges 
the contents of any two registers. 

EXG A, DP 

means EXchanGe the contents of the A register 
and the Direct Page register. It not only sets the 
direct page with whatever you have previously 
loaded into the A register with the LDA 
command, it also saves the former direct page 
number by putting the contents of the DP 
register into the A register. From there it can 
be stored in a specific memory location by 
using the STA command. 

The most significant byte of the direct 
page— 75, in this example — is now set and the 
least significant can be given with the instruc- 
tion. In this case, you have to look up the STA 
instruction under the direct addressing 
column, which gives 97. So the full instruction 
is 97 30. 

Obviously, it is not worth going through 
this whole procedure each time data is stored 
in a memory location. Setting the direct page 
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takes much more time than is saved by cutting 
the three-byte instruction down to a two-byte 
instruction. But it is often worthwhile setting 
the direct page at the beginning of the program 
and saving all the data on the same page. 

Indirect addressing takes place when the 
microprocessor is told to look at one address or 
register to find a second address where data is 
to be found or stored. On the Dragon and 
Tandy the first address or register should be in 
square brackets. For example, 

LDA [$FFFE] 

tells the microprocessor to look in FFFE and the 
next memory location, FFFF. The two bytes in 
these memory locations are taken as the ad- 
dress of a second memory location. And it is 
from this second memory location that the data 
is taken and loaded into the A register. 

Indirect addressing can also be performed 
via the U, S, X and Y registers and the program 
counter. 

In all these cases of indirect addressing the 
instruction mnemonic has to be looked up 
under the indexed addressing column to give 
the opcode. You then have to look up a postbyte 
code. 

The postbytes used in indirect addressing 
appear in a separate table in the manual for the 
6809 chip. 

In the example given above you look up 
LDA under indexed addressing and get A6. 
Then you look up [mmnn] — which indicates a 
general 16-bit indirect address— in the post- 
byte table. This gives you 9F (or BF or DF or FF 
as the postbytes are repeated for each register, 
but [mmnn] is independent of any register so it 
appears four times). 

So the whole instruction 


LDA [$FFFE] 

translates into A6 9F FF FE. 

Using the U, S, X and Y registers and the 
program counter, both non-indirect addresses 
(without square brackets) and indirect ad- 
dresses (with square brackets) can be given 
using offsets (see page 239). Offsets can be 
constants— decimal, eight or 16-bit hex— or 
the contents of other registers. These are 
added to, or subtracted from the contents of 
these five indexable addresses. For example: 

LDA 0,X 

means LoaD the A register with the data in the 
memory location whose address is given by the 
contents of the X register. The offset is zero. 

LDA 1 ,X 

means LoaD the A register with the data in the 
memory location whose address is given by the 
contents of the X register plus 1. 

LDA — 1 6,Y 

means LoaD the A register with the data in the 
memory location whose address is given by the 
contents of the Y register minus 16. 

LDA [$10,X] 

is the indirect addressing version. It LoaDs the 
A register with the contents of the memory 
location whose address is given by the X 
register plus 10 in hex. 

In all these cases the opcode for LDA is 
under the indexed heading and the appropriate 
postbyte must be added from the postbyte 
table. 16-bit addresses and eight-bit hex offsets 
then follow that. 

Jumps in assembly language — which are the 


equivalent of GOTOs and GOSUBs in BASIC— 
are handled by the commands JMP and JSR. 
These can have direct page, extended or 
indexed end addresses and their machine 
codes alter accordingly. Branches— that is, 
conditional jumps — use relative addressing , 
though. 

With relative addressing you tell the micro- 
processor how many bytes to jump forward or 
backwards. There are two main types of 
branches — an ordinary eight-bit branch which 
jumps up to 127 bytes forward or 128 bytes 
backwards and a long 16-bit branch which 
jumps up to 32,767 bytes forward or 32,768 
bytes backwards. For example: 

BEQ $FA 

will jump six bytes backwards from the start of 
the next instruction — all relative jumps are 
counted from the start of the next 
instruction— if the zero flag is set. FA is — 6 
in 2’s complement (see page 239). Alterna- 
tively, the long branch: 

LBEQ $0A00 

jumps 2560 bytes forward if the zero flag is set. 

Branches always use relative addressing- 
no other type of addressing is available to 
them. But it is often laborious to work out how 
big a branch is, and labels can be used. 

A label is a word which is used to mark the 
place a branch goes to. For example, you will 
have a line like: 

LABEL DECA 

then later, say: 

BEQ LABEL 

An assembler would then work out the jump 
back — or forward if the prefixed LABEL occurs 
after the branch — to the other mention of 
LABEL and fill in the number of bytes the 
program has to jump. 

But when you hand assemble you will have 
to work out these jumps for yourself. You do 
this by counting the number of bytes from the 
end of the branch command— that is after the 
byte that will contain the size of the jump 
itself— to the beginning of the instruction you 
are branching to. Remember with a long 
branch, details of the jump size will take up 
two bytes. 


ASSEMBLING BY HAND 


Once you’ve grasped the principles of address- 
ing, hand assembly is easy. All you have to do 
is look up the opcode for the assembly 
mnemonics under the right addressing mode, 
work out any relative jumps and — on the 
Spectrum or the Commodore — switch the 
bytes of any two byte address or piece of data. 
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Every key and combination of keys on your 
computer is represented by a unique electronic 
code pattern within the computer. In BASIC, 
these patterns are represented by a series of 
decimal values ranging from 0 to 255. The 
letter A, for example, has the decimal value 65, 
B is 66 and so on. And when you type in any 
letters or words it is these codes that the 
computer stores. 

The values and corresponding pattern of 
the keys are not the same on every computer, 
but mercifully there is at least some standar- 
dization in the way that they are used and 
described. 

The range of values are referred to by the 
initials ASCII (which stands for American 
Standard Code for Information Interchange). 
This code was devised to provide a means by 
which computers could transfer data between 



each other. The Acorns, Commodores, 
Dragon, Tandy and Spectrum all make use of 
the code — at least in part. The ZX81 has a 
completely different code — unique to this 
machine. 


ASCII CODE 


The full ASCII character set is by no means 
the same on all computers. But there are 
similarities. The greatest consistency is in the 
range 33 to 90 which covers normal symbols, 
puntuation, numerals and the upper case 
alphabet (capitals). There is an easy way to 
find out the ASCII code of a character, just 
type PRINT ASC(“X”)-or PRINT CODE “X” 
on the Spectrum— and you’ll be shown the 
ASCII code of “X” or any other character 
you’re interested in. The next program lets 
vou enter the characters more easily. 


10 PRINT “TYPE ANY LETTER, NUMBER OR 
CHARACTER” 

20 INPUT A$ 

30 PRINT “THE ASCII CODE FORD”; 

A$;“DISD”;ASC(A$) 

40 GOTO 20 


On the Spectrum change Line 30 to: 

30 PRINT “THE ASCII CODE FORD”; 

A$;“DISD”;CODE A$ 

The reverse of ASC or CODE is CHR$, as this 
converts the code number into its correspond- 
ing character. The following program converts 
all the ASCII codes between 33 and 90 into 
characters: 






■ 

WHAT IS THE ASCII CODE? 

■ 

THE VALUE OF THE ASCII 

■ 

USING NUMBERS INSTEAD OF 

CHARACTERS 

■ 

CODE IN STRING COMPARISONS 

CHECKING INPUT VALUES 

■ 

A PROGRAM TO PRINT OUT 

CODED MESSAGES 

■ 

SPECIAL CODE VALUES FOR 

YOUR COMPUTER 


5 C'[] 


LTH 


Q 


10 PRINT “ASCII CODE”, “CHARACTER” 
20 FOR N = 33 TO 90 
30 PRINT N,CHR$ (N) 

40 FOR D = 1 TO 500: NEXT D 
50 NEXT N 


The lower case alphabet on all but the Com- 
modore and Vic covers the range from 97 to 
122, and this can be checked by changing the 
last figure in Line 20 to 122. The whole set of 
characters can be displayed by changing it to 
255 instead. The full listing of the whole 
character set is in your manual. 

On the Commodore 64 you have to toggle 
the screen display backwards and forwards 
between upper case/graphics and upper case/ 
lower case modes by simultaneously press- 


ing the SB and |SHIFT| keys again and again. 
This is because the lower case letters and the 
graphics characters share the same ASCII 
codes and which you actually see depends on 
which mode you are in. 


USING THE ASCII CODE 


The advantage of using a number instead of a 
character is that you can alter the number in 
various mathematical ways. Then, if you print 
out the CHR$ of the new number you’ll get a 
different letter. This is the basis for many 
code-writing programs. It’s a useful facility, 
because you cannot directly manipulate a letter 
by applying a mathematical operation. 

Simple codes just add on a constant amount 
to each number, so in effect the letter is shifted 
down the alphabet. For example, A becomes 
G, B becomes H and so on. But these codes are 


very easy to crack-after all, it wouldn’t take 
long to program a computer to try out each of 
the 26 combinations, and it would be easy to 
see at a glance which was the right one. 

To be successful, the program has to do 
more complicated things with the numbers, 
and the program below makes use of a code 
word so each letter of the message is altered in 
different ways. This type of code is very 
difficult to crack— unless you know the code 
word that is. 



1 0 POKE 23658,8: LET CP = 0: LET PM = 0: 

LET D$ = “” 

20 CLS 

30 INPUT “WHAT IS THE CODEWORD ?□”; 
LINE C$ 

40 PRINT “INPUT THE MESSAGE:-” 







50 INPUT LINE M$ 

60 LET CP = CP + 1: IF CP> LEN C$ THEN 
LET CP = 1 
70 LET PM = PM + 1 
80 IF PM > LEN M$ THEN GOTO 200 
90 LET F$ = M$(PM) 

100 IF F$<“A” OR F$ > “Z” THEN GOTO 
150 

1 1 0 LET F = CODE F$ + CODE C$(CP) - 65 
120 IF F> 90 THEN LET F= F — 26 
130 LET D$ = D$ + CHR$ F 
140 GOTO 60 

150 IF F$<“0” OR F$ > “9” THEN LET 
D$ = D$ + F$:GOTO 70 
1 60 LET F = CODE F$ + CODE C$(CP) - 48 
170 IF F> 57 THEN LET F=F-10: GOTO 
170 

180 LET D$ = D$ + CHR$F 
190 GOTO 60 

200 PRINT '“THE CODED MESSAGE IS 
210 PRINT D$ 

220 STOP 

EBE 

10 PRINT 

30 INPUT “WHAT IS THE CODEWORD”;C$ 

40 PRINT “INPUT THE MESSAGE 
50 INPUT MSS 

60 CP = CP + 1:IF CP> LEN(C$) THEN CP = 1 
70 PM = PM + 1 

80 IF PM>LEN(MS$) THEN 200 
90 F$ = MID$(MS$,PM,1) 

100 IF F$<“A” OR F$>“Z” THEN 150 
110 F=ASC(F$) + ASC(MID$ 

(C$,CP,1 )) — 65 
120 IF F > 90 THEN F = F — 26 
130 CD$ = CD$ + CHR$(F) 

140 GOTO 60 

150 IF F$<“0” OR F$ > “9” THEN 
CDS = CDS + F$:GOTO 70 
160 F=ASC(F$) + ASC(MID$ 

(C$,CP,1)) — 48 

170 IF F> 57 THEN F = F— 10: GOTO 170 
180 CD$ = CD$ + CHR$(F) 

190 GOTO 60 

200 PRINT: PRINT “THE CODED MESSAGE IS 

. 

210 PRINT:PRINT CDS 
220 END 

B 

10 MODE1 

30 INPUTLINE" WHAT IS THE 
CODEWORD [T\C$ 

40 PRINT“INPUT THE MESSAGE” 

50 INPUTLINE MSS 

60 CP = CP + 1:IF CP> LEN(C$) THEN CP = 1 
70 PM = PM + 1 

80 IF PM>LEN(MS$) THEN 200 
90 F$ = MID$(MS$,PM,1) 

100 IF F$<“A” OR F$ > “Z” THEN 150 



men mmm 


110 F = ASC(F$) + ASC(MID$(C$, 

CP,1 )) — 65 

120 IF F> 90 THEN F = F— 26 
130 CDS = CDS + CHR$(F) 

140 GOTO 60 

150 IF F$<“0” OR F$>“9” THEN 
CDS = CDS + F$:GOTO 70 
160 F=ASC(F$) + ASC(MID$(C$, 

CP,1 )) — 48 

170 IF F> 57 THEN F= F— 10: 

GOTO 170 

180 CD$ = CD$ + CHR$(F) 

190 GOTO 60 

200 PRINT'“THE CODED MESSAGE IS” 
210 PRINT'CDS 
220 END 




10 CLEAR 300 
20 CLS 

30 LI N El N PUT" WHAT IS THE CODEWORD 

?”; C$ 

40 PRINT“INPUT THE MESSAGE 
50 LINEINPUT MSS 

60 CP = CP + 1:IF CP> LEN(C$) THEN CP = 1 
70 PM = PM + 1 

80 IF PM > LEN(MSS) THEN 200 
90 F$ = MID$(MS$,PM,1) 

100 IF F$ < “A” OR F$ > “Z” THEN 150 
110 F=ASC(F$) + ASC(MID$(C$, 

CP,1 )) — 65 

120 IF F > 90 THEN F=F-26 
130 CD$ = CD$ + CHR$(F) 

140 GOTO 60 

150 IF F$ < “0” OR F$>“9” THEN 
CDS = CDS + F$:GOTO 70 
160 F = ASC(F$) + ASC(MID$(C$, 

CP,1 )) — 48 

170 IF F > 57 THEN F= F — 10: GOTO 170 
180 CD$ = CD$ + CHR$(F) 

190 GOTO 60 

200 PRINT:PRINT“THE CODED 
MESSAGE IS 
210 PRINT:PRINTCD$ 

220 END 


The program asks you to INPUT the codeword 
and the message, then it prints out the coded 
version. The message is now safe and can only 
be decoded by someone who also knows the 
codeword. 

The way it works is quite simple and the 
method is much the same as a simple coding 
program, but instead of adding a constant 
amount to each letter, the ASCII code of the 
first letter of the codeword is added to the first 
letter of the message, the second letter of the 
codeword is added to the second letter of the 
message, and so on. When the end of the 
codeword is reached, the cycle starts at its 
beginning again. 


If when the numbers are added on the result 
is greater than 90 — that is beyond Z— then 26 
is subtracted to keep the range within the 
alphabet. Numbers are treated separately, in 
Lines 150 to 180, to keep their ASCII codes 
between 48 and 57 which corresponds to the 
numbers 0 to 9. 

The decoding program is very similar to the 
first one, all that’s different is that a few + s 
and — s have been changed. The Line num- 
bers follow on from the last one so you can save 
the combined program, and there are a few 
extra Lines to let you choose whether you want 
to code or decode a message: 


12 INPUT “(C)ODE OR (D)ECODE ?”; 

LINE A$ 

14 IF A$ = “D” THEN GOTO 400 
16 IF A$< >“C” THEN GOTO 12 
400 CLS 

410 INPUT “WHAT IS THE CODEWORD ?□”; 
LINE C$ 

420 PRINT “INPUT THE CODED MESSAGE:-” 
430 INPUT LINE M$ 

440 LET CP = CP+1: IF CP > LEN C$ THEN 
LET CP = 1 

450 LET PM = PM + 1 

460 IF PM > LEN M$ THEN GOTO 580 

470 LET F$ = M$(PM) 

480 IF F$ < “A” OR F$>“Z” THEN GOTO 
530 

490 LET F=CODE F$-CODE C$(CP) + 65 
500 IF F < 65 THEN LET F = F + 26 
510 LET D$ = D$ + CHR$ F 
520 GOTO 440 

530 IF F$ < “0” OR F$>“9” THEN LET 
D$ = D$ + F$: GOTO 450 
540 LET F=CODE FS-CODE C$(CP) + 48 
550 IFF <48 THEN LET F = F + 10:GOTO550 
560 LET D$ = D$ + CHR$ F 
570 GOTO 440 

580 PRINT '“THE DECODED MESSAGE IS:-” 
590 PRINT 'D$ 

600 STOP 

E IE 

12 INPUT “(C)ODE OR (D)ECODE”;A$ 

14 IF A$ = “D” THEN GOTO 400 
16 IF A$< >“C” THEN GOTO 12 
400 PRINT" □” 

410 INPUT “WHAT IS THE CODEWORD”;C$ 
420 PRINT “INPUT THE CODED MESSAGE :” 
430 INPUT MSS 

440 CP = CP + 1 :IF CP > LEN(C$) THEN CP = 1 

450 PM = PM + 1 

460 IF PM>LEN(MS$) THEN 580 

470 F$ = MID$(MS$,PM,1) 

480 IF F$ < “A” OR F$ > “Z” THEN 530 
490 F = ASC(F$) — ASC(MID$(C$, 

CP,1)) + 65 
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500 IF F < 65 THEN F = F+26 
51 0 CDS = CDS + CHR$(F) 

520 GOTO 440 

530 IF F$<“0” OR F$>“9” THEN 
CDS = CDS + F$:GOTO 450 
540 F = ASC(F$) — ASC(MID$(C$, 

CP,1 )) + 48 

550 IF F < 48 THEN F = F + 1 0:GOTO 550 
560 CD$ = CD$ + CHR$(F) 

570 GOTO 440 
580 PRINT “THE DECODED 
MESSAGE IS 


590 PRINT:PRINT CDS 
600 END 

□ 

12 INPUT “(C)ODE OR (D)ECODE”, A$ 

14 IF A$ = “D” THEN GOTO 400 
16 IF AS < >“C” THEN GOTO 12 
400 CLS 

410 INPUTLINE" WHAT IS THE 
CODEWORD □’’A 

420 PRINT“INPUT THE CODED MESSAGE” 
430 INPUTLINE MSS 


440 CP = CP + 1:IF CP> LEN(CS) THEN 
CP = 1 

450 PM = PM + 1 

460 IF PM > LEN(MSS) THEN 580 

470 F$ = MID$(MS$,PM,1) 

480 IF F$<“A” OR F$>“Z” THEN 530 
490 F = ASC(F$) — ASC(MID$(C$, 

CP,1)) + 65 

500 IF F < 65 THEN F=F + 26 
51 0 CDS = CDS + CHR$(F) 

520 GOTO 440 

530 IF F$<“0” OR F$>“9” THEN 








318 



CDS = CDS + F$:GOTO 450 
540 F = ASC(F$) — ASC(MID$(C$, 

CP,1)) + 48 

550 IFF <48 THEN F= F + 10:GOTO 550 
560 CD$ = CD$ + CHR$(F) 

570 GOTO 440 

580 PRINT'“THE DECODED MESSAGE IS” 
590 PRINT'CDS 
600 END 


12 INPUT “(C)ODE OR (D)ECODE ?”;A$ 
14 IF A$ = “D” THEN GOTO 400 
16 IF A$ < >“C” THEN GOTO 12 


410 LINEINPUT“WHAT IS THE CODEWORD 

?”;C$ 

420 PRINT“INPUT THE CODED MESSAGE 
430 LINEINPUT MSS 
440 CP = CP + 1:IF CP> LEN(C$) THEN 
CP=1 

450 PM = PM + 1 

460 IF PM>LEN(MS$) THEN 580 

470 F$ = MID$(MS$,PM,1) 

480 IF F$<“A” OR F$ > “Z” THEN 530 
490 F = ASC(F$) — ASC(MID$(C$, 

CP,1)) + 65 

500 IF F < 65 THEN F=F + 26 
51 0 CDS = CDS + CHR$(F) 

520 GOTO 440 


CDS = CDS + F$:GOTO 450 
540 F = ASC(F$) — ASC(MID$(C$, 

CP,1 )) + 48 

550 IF F < 48 TH EN F = F + 1 0: GOTO 550 
560 CD$ = CD$ + CHR$(F) 

570 GOTO 440 

580 PRINT“THE DECODED MESSAGE IS 
590 PRINT: PRINTCDS 
600 END 


By the way, if you really want to make the code 
difficult to crack you can always code your 
coded message using a second codeword! 
Remember to get them in the right order when 
you decode the message again. 






COMPARISONS 


One of the major uses of the ASCII code 
values is for comparing strings (see page 202). 
String comparisons are made one character at a 
time from left to right until the end of one 
word is reached. For example, suppose two 
string constants such as “COSMOS” and 
“COSMIC” have to be evaluated. The com- 
puter first compares the two Cs, then the Os, 
Ss and Ms. Then 0 is compared to the 
corresponding character I on the other side. 

What is compared is not an arbitrary set of 
alphabetic values, but the ASCII value of each 
character. 0 has a greater ASCII value than I 
so in this comparison “COSMOS” has a 
greater value than “COSMIC”. Note that the 
sums of the ASCII values of the letters which 
make up the string are not used to determine 
which has a greater value. Each letter is 
compared individually. Have a look at the 
article on pages 201 to 207 for more examples 
of how strings are compared. 

Here are some example comparisons show- 
ing various possible forms of A$ and B$, along 
with the ASCII values of the characters 
involved. It is important to compare the 
values of each character on 
a pair by pair basis, the first 
character of A$ with the first of B$ 
/ and so on for the length of the 
? shorter word. 


r A$/ASCII 


BS/ASCII 


Relationship 


ABC 

65,66,67 

ABC 

65,66,67 

A$ = B$ 

ABD 

65,66,68 

ABCD 

65,66,67 

A$>B$ 

ABD 

65,66,68 

ABCD 

65,66,67 

A$ < > B$ 

ABC 

65,66,67 

Abe 

65,97,98 

A$<B$ 

COSMI 

67,79,83, 

COSMO 

67,79,83, 

A$<B$ 


77,73 


77,79 


$1 

36,49 

$1.0 

36,49,46 

A$<B$ 


Note, in the second and third examples, it is 
possible to write the relationship in more than 
one way. Also that, in the last example, that all 
else being equal, it’s the longer string which is 
considered to have the greater value or be 
‘more than’ the other. 


CHECKING INPUTS 


The ASC and CODE functions work only on the 
first character of the string. So PRINT 
ASC(“USA”) or PRINT C0DE“USA” (on the 
Spectrum) gives 85, the ASCII code of “U”. 
This turns out to be very useful for checking 
INPUTs to programs. For example, in the code- 
writing program, Line 12 asked you to INPUT 
either C for CODE or D for DECODE. Then 
the next two lines direct the program to the 
right section. But to guard against someone 
typing in CODE or DECODE in full you 
could rewrite Lines 14 and 16 as: 


E KEH 


L T 4 


Q 


14 IF ASC(A$) = 68 THEN GOTO 400 
16 IF ASC(A$)< >67 THEN GOTO 12 


14 IF CODE A$ = 68 THEN GOTO 400 
16 IF CODE A$< >67 THEN GOTO 12 


CONTROL CODES 


Some ASCII codes don’t have characters 
associated with them. For example, when you 
press the I ENTER 1 or I RETURN | key the computer 
stores the value 13, but instead of printing a 
character on the screen, the cursor is moved to 
the beginning of the next line or, on the 
Spectrum, the program is listed. Code 13 is 
called the carriage return code or, sometimes, 
the newline code. Try typing PRINT 
“A”;CHR$(13);“B” and you’ll see that “B” is 
printed on a new line directly below the “A”. 

Here’s a way to find out the ASCII codes of 
the non-character keys: 


10 PRINT CODE INKEY$ 

20 GOTO 10 

SB 

5 GET A$ : IF A$ = “”THEN 5 
10 PRINT ASC(A$) 

20 GOTO 5 




5 AS = INKEYS: IFA$ = “” THEN 5 
10 PRINT ASC(A$) 

20 GOTO 10 



10 PRINT ASC GETS 
20 GOTO 10 

Try pressing [ENTER] or |RETURN| , I DELETE | , 
backspace or any of the other keys on your 
computer. You can use this method to detect 
when the keys are pressed in a game. Unfortu- 
nately, except on the Acorn computers, you 
cannot use the values in reverse. That is, 
although cursor down has code 10, PRINT 
CHR$(10) will not move the cursor down. 

Some computers make more use of these 
codes than others. There are a lot of spare 
numbers available — from 1 to 31 and some 
above 90 but they were originally defined in 
the days when computers were connected to 
printers so the codes are mostly concerned 
with controlling these old-style printers. Now, 
of course, computers are designed to be used 
with a TV screen so most of the old codes no 
longer apply although a few of the codes can be 
used with modern printers. 


The Spectrum computer has redefined a lot of 
the codes so they work on the TV screen. For 
example PAPER has code 17 and INK has code 
16. So to PRINT the word “TITLE” on the 
screen in red on a green background you can 
use this program: 


1 0 LET A$ = CHR$1 7 4- CHR$4 + CHR$1 6 + 
CHR$2 + “TITLE” 

20 PRINT A$ 


If this was a heading you wanted to use several 
times in a program then you just need to define 
A$ once, at the start, and then use PRINT A$ 
each time. 


BBSS 

The Commodores make extensive use of the 
code values above and below the punctuation 
and alphabet range. The values used up to 
code 32 (space) include several of the available 
colours, some cursor controls, and a forced 
switch to lower case, amongst others. One of 
the most commonly used values from the early 
range of codes is CHR$(13) which represents 
I RETURN 1 . 

The remaining colours and cursor controls, 
plus the ROM graphics, can be found in the 
code value range which follows 90 (for Z). 
Codes between 191 and 255 simply duplicate 
this latter range. 

The codes can be concatenated to give 
variables which have embedded cursor and 
colour controls. Look, for example, at the 
datafile listing on page 48, Lines 42 to 60. You 
can check the meaning of the various code 
values using the relevant User’s Guide ap- 
pendix. For example, code 14 in Line 42 forces 
the display into lower case when the program 
is RUN. The variable names used in that 
program suggest the functions performed by 
the code values assigned to them. Note how a 
variable such as c4$ can be formed from cd$ 
which is previously defined using CHR$(17). 
As you can see, a very wide range of screen 
manipulations can be carried out. 


[i 

The Acorn computers have redefined a lot of 
the codes and altered others so they work on 
the TV screen. For example, code 22 selects 
the screen mode, 17 defines the text colour and 
31 moves the cursor to a specified position. 
The advantage of using CHR$22 instead of 
MODE, and CHR$17 instead of COLOUR is that 
the character strings can be concatenated 
together into one long string which you can 
then call by a single variable name. 

So, using the last three examples try out the 
following program: 













1 0 A$ = CHR$22 + CHR$5 + CHR$1 7 + 
CHR$2 + CHR$31+CHR$8 + 
CHR$15H-“TITLE” 

20 PRINT A$ 

If this was a heading that you wanted printed 
several times in a program then you just need 
to define A$ once and use PRINT A$ each time. 

This use of control codes, though, is un- 
usual. PRINT CHR$(X); is equivalent to VDU X. 
This means less typing and you can also list 


several control codes together in a single VDU 
statement. The last program is the same as: 

10 VDU 22,5,17,2,31,8,15 
20 PRINT “TITLE” 

You could even put the word “TITLE” into 
the VDU statement — just list the ASCII codes 
of each letter: 

10 VDU22, 5, 17, 2, 31 ,8, 15, 84, 73, 84, 

76,69 


However, this may be going a bit too far! 
These control codes all have equivalent key- 
words that do the same thing— MODE, 
COLOUR and so on, but not all control codes 
are like this. For example if you want to 
redefine the colours you have to use VDU1 9, 
there is no word that does the same. Similarly 
VDU7 makes a short beep and VDU10(or PRINT 
CHR$10;) moves the cursor down one space. 
The whole list of VDU codes is in the User 
Guide. 






CUMULATIVE INDEX 


An interim index will be published each week. There will be a complete index in the last issue of INPUT. 


A 


Addressing 
Adventure games 

mapping 

planning 

Anagram program 
AND 

Animation 
Applications 
bar charts 
family finance 
hobbies’ files 
letter writer 
typing tutor 
ASCII code 
Assembly language 
Assignment statement 
ATTR, Spectrum 


310-313 

296-301 

264-268 

203 

35-36, 285-288 
26-32 

257-263 
136-143 
46-53, 75-79 
124-128 
289-295 
314-320 
66-67, 309-313 
66-67, 92 
68-69 


Decision making 33-37 

Degrees to radians, 
conversion program 250-251 

Delays in programs 1 7 

DIMensioning an array 152-153 

Dot matrix printers 226-227 

DRAW 85-91 

Drawing letters, Dragon, Tandy 191-192 


Egg-timer program 
Ellipse, drawing a 
EOR, Acorn 
ENDPROC, Acorn 
Error, causes of 


176-177 

256 

287-288 

64 

36 


B 


Bar chart program 257-263 

BASIC programming 

arrays 152-155, 269-275 

ASCII codes 314-320 

decision making 33-37 

how to PLOT, DRAW, 

LINE, PAINT 84-91 

inputting information 129-135 

PEEK and POKE 240-247 

logical operators 284-288 

programmer’s road signs 60-64 

READ and DATA 104-109 

random numbers 2-7 

refining your graphics 184-192 

screen displays 1 1 7-1 23 

strings 201-207 

structured programming 173-178, 216-219 
the FOR... NEXT loop 16-21 

using SIN and COS 250-256, 302-308 

variables 92-96 

BEEP, Spectrum 230-231 

Binary 38, 41, 44, 45, 113-116 

negative numbers 179-183 

Bit masking 288 

Bitwise operators 288 

Bridge, drawing a, Spectrum 108 

Bubble sort program 216-219 

Byte, definition of 114 


Family finance program 136-143 

Filing system program 46-53, 75-79 
Flow charts 173-178 

Flying bird sprite, Commodore 64 1 68-172 

FOR... NEXT loop 16-21 


Games 

adventure games 
aliens and missiles 
animation 
arrays for games 
bombing run program 
controlling movement 
firing missiles 
fruit machine 
guessing 

levels of difficulty 
maze game 
minefield 
moving characters 
random mazes 
routines 

scoring and timing 
sound effects 
space station game 
visual explosions 

GET 

Golf-course, drawing a 
Acorn, Spectrum 

GOSUB 




GOTO 

18-21,60-62 



Graphics 


Cassette recorders, choice of 

24 

characters 

38-45 

Castle, drawing a, Dragon, Tandy 

108 

creating and moving UDGs 

8-15 

CHR$, Dragon, Tandy 

26-27 

drawing on the screen 

132-133 

CIRCLE 

86-91 

drawing patterns 

307-308 

Circle, drawing a 

255-256 

drawing pictures 

107-109 

Clock 


explosions for games 

161-167 

drawing a 

302-306 

fire-breathing dragon 

80-83 

internal 

69-73 

frog UDG 

10-15 

Codeword program 

315-318 

instant embroidery 

21 

COLOUR 

87-90 

low-resolution 

26-32 

Colour UDGs, Dragon, Tandy 

248-249 

painting by numbers 

19 

Compass, drawing a 

251-253 

refining your graphics 

184-192 

Control codes 

319-320 

spiral pattern 

307 

Control variables 

94 

sunset pattern 

20 

COS 250-256, 302-308 

tank UDG 

10-15 

CPU 

236-239 

using PLOT, DRAW, 


Craps program 

63 

CIRCLE, LINE, PAINT 

85-90 

Cursor, definition of 

7 

using SIN and COS 250-256, 302-308 

control codes, Commodores 

123 



D 


H 

Helicopter, building a 


Daisywheel printers 

227 

Commodore 64 

31 

DATA 

104-109 

Hexadecimal 38, 42, 45, 156-160 

Decimal 


Hobbies file 

46-53, 75-79 

conversions from binary’ 

38, 42 

House, drawing a 


converting fractions into binary 

114 

Acorn, Commodore 64 

107-109 


I 


264-268, 296-301 
144-151 
26-32 
155 
161-167 

54- 59 

55- 58 
36 

3-5 
193-200 
68-74, 230-235 
97-103 
54-59 
193-200 
8-15 
69-73 
230-235 
144-151 
161-167 
55-58, 132-135 

184-191 

62-64 


IF. ..THEN 

3, 33-37 

Indirection operators 

247 

INKEY, Acorn 28-29, 103, 1 34-1 35 

INKEYS 

54-55, 132-135 

INPUT 3-5, 117-122, 129-135 

INSTR 

1 

206 

J 

Joysticks 

220-224 

K 


Keypress, detection of 

54-55 

Keywords, spelling of 

1 

19 

L 

Languages, computer 

65 

see Assembly language; 


BASIC; Machine code 


LEFTS 

202-207 

LEN 

202-207 

Letter writing program 

124-128 

LINE, Dragon, Tandy 

88-91 

Logical operators 

35-37, 284-288 

Lower case letters, 


Dragon, Tandy 

142 

M 


Machine code 


advantages of 

66 

assembly language 

309-314 

binary coded decimal 

238 

binary numbers 

113-116 

drawing dragon with 

80-83 

entering machine code 

276-283 

games graphics 

38-45 

hexadecimal 

156-160 

low level languages 

65-67 

machine architecture 

236-239 

memory maps 

208-215 

monitors 

276-283 

negative numbers 

179-183 

nonary numbers 

111-112 

number bases 

110-116 

ROM and RAM 

208-215 

speeding up games routines 

8-15 

Mapping adventure games 

296-301 

Maze programs 

68-75, 193-200 

MIDS 

202-207 

Minefield game 

97-99 

Mnemonics 

301 

Movement 

26-32, 59 

N 


Negative binary numbers, 


conversion program 

180-183 

Nonary numbers 

111 

NOT 

286-288 

Null strings 

96 

Number bases 

110-116 

0 


Opcodes 

67 

Operators 

35, 284-288 

OR 

35-36, 286-288 

CL 


Paper for printers 

228 

Password program 

133 

PEEK 59, 101, 240-247 

Peripherals, cassettes 

22-25 

joysticks 

220-224 

printers 

225-229 

Pets survey program 

269-275 


: issue of INPUT. 


PLAY, Dragon, Tandy 

234-235 

PLOT 

88-89 

PMODE, Dragon, Tandy 

90 

POKE 101, 108-109, 240-247 

Positioning text 

117-123 

PRINT 

26-32, 117-123 

Printer, choosing a 

225-229 

PROCedures, Acorn 

64 

PSET, Dragon, Tandy 

13, 90-91 

Punctuation, in PRINT statements 119-123 

R 


RAM 25, 44, 46, 208-215 

Random numbers 

2-7 

Random mazes 

193-200 

READ 

40-44, 104-109 

Registers 

236-239 

Relational operators 

284-285 

REPEAT . . . UNTIL, Acorn 

36 

Resolution, high and low 

84 

RESTORE 

106-107 

RIGHTS 

202-207 

RND function 

2-7 

ROM 

208-215 

ROM graphics 

26-32, 107-109 

Running man, building a, Acorn 28-29 

CO 


Satellite, building a 


Dragon, Tandy 

26-27 

SAVE 

22-25 

Scoring 

97, 100-101 

SCREEN, Dragon, Tandy 

40, 90 

Screen drawing program 

132-133 

Screen formatting 

117-123 

Scrolling backwards 

282-283 

Ship, drawing a, Dragon, Tandy 191 

SID chip, Commodore 64 

231 

Simons’ BASIC, Commodore 64 87-88 

SIN 250-256, 302-308 

Snow scene, Commodore 64 

186-188 

Sound effects 

230-235 

Sprite, Commodore 64 

14, 15, 168-172 

Stack 

237-239 

STEP 

17, 21 

String functions 

201-207 

String variables 

4-5, 95-96 

STRINGS 

Structured programming 

98, 205 

173-178, 216-219 

Subroutines 

62-63 

T 


TAB 

117-122 

Teletext graphics, BBC 

28 

Terminating numbers 

34 

Timing 

97, 101-103 

Two dimensional arrays 

269-275 

Twos complement 

179-183 

Typing tutor program 

289-295 

u 


UDG 


colour UDGs, Dragon, Tandy 248-249 

definition of 

8-15, 40-44 

grids for 

8-11 

creating your own 

38—45 

V 


VAL, Commodore 64 

101 

Variables 3-5, 

92-96, 104-108 

VDU command, Acorn 

28-29, 70, 99 

Verifying saved programs 

24-25 

VIC chip memory locations 

Commodore 64 

172 
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